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

8
h2/lib/h2-pool.adb
View File

@ -65,7 +65,7 @@ package body H2.Pool is
if P = null then
declare
procedure Dealloc is new Ada.Unchecked_Deallocation (Normal_Type, Pointer_Type);
procedure Dealloc is new Ada.Unchecked_Deallocation(Normal_Type, Pointer_Type);
begin
Dealloc (Target);
end;
@ -73,9 +73,9 @@ package body H2.Pool is
declare
type Pooled_Pointer is access Normal_Type;
for Pooled_Pointer'Storage_Pool use P.all;
function To_Pooled_Pointer is new Ada.Unchecked_Conversion (Pointer_Type, Pooled_Pointer);
procedure Dealloc is new Ada.Unchecked_Deallocation (Normal_Type, Pooled_Pointer);
Tmp: Pooled_Pointer := To_Pooled_Pointer (Target);
function To_Pooled_Pointer is new Ada.Unchecked_Conversion(Pointer_Type, Pooled_Pointer);
procedure Dealloc is new Ada.Unchecked_Deallocation(Normal_Type, Pooled_Pointer);
Tmp: Pooled_Pointer := To_Pooled_Pointer(Target);
begin
Dealloc (Tmp);
Target := null;