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 declare
type Pooled_Pointer is access Normal_Type; type Pooled_Pointer is access Normal_Type;
for Pooled_Pointer'Storage_Pool use P.all; 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; Tmp: Pooled_Pointer;
begin begin
Tmp := new Normal_Type; Tmp := new Normal_Type;
return To_Pointer_Type (Tmp); return To_Pointer_Type(Tmp);
end; end;
end if; end if;
end Allocate; end Allocate;
@ -48,7 +48,7 @@ package body H2.Pool is
-- Tmp: Pooled_Pointer; -- Tmp: Pooled_Pointer;
-- begin -- begin
-- Tmp := new Normal_Type'(Source); -- Tmp := new Normal_Type'(Source);
-- return To_Pointer_Type (Tmp); -- return To_Pointer_Type(Tmp);
-- end; -- end;
-- end if; -- end if;
-- end Allocate; -- end Allocate;