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

a few lines of useless code

Browse Source
This commit is contained in:
hyung-hwan
2021-12-11 15:57:06 +00:00
parent 77f6939f31
commit 1fc6d0868b
3 changed files with 23 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
h2/lib2/h3-trees.ads
View File

@ -38,8 +38,6 @@ package H3.Trees is
end case;
end record;
-- parse tree
type Tree is new Ada.Finalization.Limited_Controlled with record
--Next_Node: System_Index := System_Index'First;
@ -47,6 +45,10 @@ package H3.Trees is
Top: Node_Pointer := null;
end record;
overriding procedure Initialize (C: in out Tree);
overriding procedure Finalize (C: in out Tree);
-- ------------------------------------------------------------------
procedure New_Node (Tr: in out Tree);
overriding procedure Initialize (Tr: in out Tree);
overriding procedure Finalize (Tr: in out Tree);
end H3.Trees;