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

15
h2/lib2/h3-trees.adb
View File

@ -1,13 +1,20 @@
with Ada.Unchecked_Deallocation;
with ada.text_io;
package body H3.Trees is
procedure New_Node (Tr: in out Tree; Code: Node_Code) is
procedure New_Node (Tr: in out Tree) is
N: Node_Pointer;
begin
N := new Node(Code);
--N := new Node'(Code => NODE_VOID, Next => null );
N := new Node;
N.all := (Code => NODE_VOID, Next => Null);
N.Next := Tr.Top;
Tr.Top := N;
ada.text_io.put_line ("new node...");
end New_Node;
procedure Free_Node (Tr: in out Tree; N: in out Node) is
@ -20,12 +27,12 @@ package body H3.Trees is
-- ------------------------------------------------------------------
overriding procedure Initialize (C: in out Tree) is
overriding procedure Initialize (Tr: in out Tree) is
begin
null;
end Initialize;
overriding procedure Finalize (C: in out Tree) is
overriding procedure Finalize (Tr: in out Tree) is
begin
null;
end Finalize;