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

reorganized h2

Browse Source
This commit is contained in:
hyung-hwan
2021-08-21 14:31:39 +00:00
parent 1829a9f0b2
commit f875ede81c
85 changed files with 12444 additions and 59510 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
h2/lib/h2.ads
View File

@ -3,29 +3,28 @@ with System.Storage_Pools;
package H2 is
--pragma Preelaborate (H2);
System_Byte_Bits: constant := System.Storage_Unit;
System_Word_Bits: constant := System.Word_Size;
System_Word_Bytes: constant := System_Word_Bits / System.Storage_Unit;
System_Word_Bytes: constant := System_Word_Bits / System_Byte_Bits;
type System_Byte is mod 2 ** System.Storage_Unit;
for System_Byte'Size use System.Storage_Unit;
type System_Byte is mod 2 ** System_Byte_Bits;
for System_Byte'Size use System_Byte_Bits;
type System_Word is mod 2 ** System_Word_Bits;
--for System_Word'Size use System_Word_Bits;
for System_Word'Size use System_Word_Bits;
type System_Signed_Word is range -(2 ** (System_Word_Bits - 1)) ..
+(2 ** (System_Word_Bits - 1)) - 1;
--for System_Signed_Word'Size use System_Word_Bits;
for System_Signed_Word'Size use System_Word_Bits;
type System_Size is new System_Word range 0 .. (2 ** System_Word_Bits) - 1;
--type System_Size is new System_Word range 0 .. (2 ** System_Word_Bits) - 1;
subtype System_Size is System_Word range 0 .. (2 ** System_Word_Bits) - 1;
subtype System_Length is System_Size;
subtype System_Index is System_Size range 1 .. System_Size'Last;
type Storage_Pool_Pointer is
access all System.Storage_Pools.Root_Storage_Pool'Class;
type Storage_Pool_Pointer is access all System.Storage_Pools.Root_Storage_Pool'Class;
type System_Byte_Array is array(System_Index range<>) of System_Byte;
--package Chpos renames H2.Ascii.Code;
end H2;