vhdl-nodes: do not reset free hooks on initialization

ghdl · Jun 26, 2021 · 15c6de7 · 15c6de7
1 parent 8a50921
commit 15c6de7
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 2 deletions.
diff --git a/src/vhdl/vhdl-nodes.adb b/src/vhdl/vhdl-nodes.adb
@@ -740,7 +740,6 @@ package body Vhdl.Nodes is
    procedure Initialize is
    begin
       Free_Chain := Null_Node;
-      Nbr_Free_Hooks := 0;
       Nodet.Init;
    end Initialize;
 

diff --git a/src/vhdl/vhdl-nodes.adb.in b/src/vhdl/vhdl-nodes.adb.in
@@ -740,7 +740,6 @@ package body Vhdl.Nodes is
    procedure Initialize is
    begin
       Free_Chain := Null_Node;
-      Nbr_Free_Hooks := 0;
       Nodet.Init;
    end Initialize;
 

diff --git a/src/vhdl/vhdl-nodes.ads b/src/vhdl/vhdl-nodes.ads
@@ -7389,6 +7389,8 @@ package Vhdl.Nodes is
    procedure Free_Iir (Target : Iir);
 
    --  Hooks called when a node is free.
+   --  Note: The register procedure must be called only during elaboration, so
+   --   the set of hooks is defined forever.
    type Free_Iir_Hook is access procedure (N : Iir);
    procedure Register_Free_Hook (Hook : Free_Iir_Hook);