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

added experimental stream handling code

Browse Source
This commit is contained in:
hyung-hwan
2013-12-28 16:52:31 +00:00
parent de981a1706
commit 3721e3c1a6
10 changed files with 575 additions and 111 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
h2/lib/h2-pool.ads
View File

@ -7,16 +7,17 @@
--------------------------------------------------------------------
generic
type Normal_Type is private;
type Pointer_Type is access Normal_Type;
--type Normal_Type is private;
type Normal_Type is limited private;
type Pointer_Type is access all Normal_Type;
Storage_Pool: in Storage_Pool_Pointer := null;
package H2.Pool is
function Allocate (Pool: in Storage_Pool_Pointer := null) return Pointer_Type;
function Allocate (Source: in Normal_Type;
Pool: in Storage_Pool_Pointer := null) return Pointer_Type;
-- function Allocate (Source: in Normal_Type;
-- Pool: in Storage_Pool_Pointer := null) return Pointer_Type;
procedure Deallocate (Target: in out Pointer_Type;
Pool: in Storage_Pool_Pointer := null);