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

minor spacing fix

Browse Source
This commit is contained in:
hyung-hwan 2021-08-23 23:41:19 +00:00
parent 641e6a06f1
commit 6582035078
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/h2-pool.adb
View File

@ -19,11 +19,11 @@ package body H2.Pool is
declare
type Pooled_Pointer is access Normal_Type;
for Pooled_Pointer'Storage_Pool use P.all;
function To_Pointer_Type is new Ada.Unchecked_Conversion (Pooled_Pointer, Pointer_Type);
function To_Pointer_Type is new Ada.Unchecked_Conversion(Pooled_Pointer, Pointer_Type);
Tmp: Pooled_Pointer;
begin
Tmp := new Normal_Type;
return To_Pointer_Type (Tmp);
return To_Pointer_Type(Tmp);
end;
end if;
end Allocate;
@ -48,7 +48,7 @@ package body H2.Pool is
-- Tmp: Pooled_Pointer;
-- begin
-- Tmp := new Normal_Type'(Source);
-- return To_Pointer_Type (Tmp);
-- return To_Pointer_Type(Tmp);
-- end;
-- end if;
-- end Allocate;