hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added No_Optimization

Browse Source
This commit is contained in:
hyung-hwan
2013-12-19 14:42:14 +00:00
parent 6f267a832a
commit 5bef24e8ec
2 changed files with 38 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
h2/lib/h2-scheme.ads
View File

@ -257,7 +257,8 @@ package H2.Scheme is
type Memory_Size is range 0 .. (2 ** (System.Word_Size - 1)) - 1;
type Trait_Mask is mod 2 ** System.Word_Size;
No_Garbage_Collection: constant Trait_Mask := 2 ** 0;
No_Garbage_Collection: constant Trait_Mask := 2#0000_0000_0000_0001#;
No_Optimization: constant Trait_Mask := 2#0000_0000_0000_0010#;
type Option_Kind is (Trait_Option);
type Option_Record (Kind: Option_Kind) is record