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

trying to rewrite h2

Browse Source
This commit is contained in:
hyung-hwan
2021-08-23 23:47:29 +00:00
parent 6582035078
commit e07312b402
13 changed files with 910 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
lib2/h3-storage_pools.ads Normal file
View File

@ -0,0 +1,26 @@
with System.Storage_Pools;
with System.Storage_Elements;
package H3.Storage_Pools 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 H3.Storage_Pools;