reorganized h2

This commit is contained in:
2021-08-21 14:31:39 +00:00
parent 1829a9f0b2
commit f875ede81c
85 changed files with 12444 additions and 59510 deletions

26
h2/bin/storage.ads Normal file
View File

@ -0,0 +1,26 @@
with System.Storage_Pools;
with System.Storage_Elements;
package Storage is
package SSE renames System.Storage_Elements;
package SSP renames System.Storage_Pools;
type Global_Pool is new SSP.Root_Storage_Pool with private;
procedure Allocate (Pool: in out Global_Pool;
Address: out System.Address;
Size: in SSE.Storage_Count;
Alignment: in SSE.Storage_Count);
procedure Deallocate (Pool: in out Global_Pool;
Address: in System.Address;
Size: in SSE.Storage_Count;
Alignment: in SSE.Storage_Count);
function Storage_Size (Pool: in Global_Pool) return SSE.Storage_Count;
private
type Global_Pool is new SSP.Root_Storage_Pool with null record;
end Storage;