3 files changed, 2 insertions, 2 deletions
diff --git a/src/vhdl/vhdl-nodes.adb b/src/vhdl/vhdl-nodes.adb
index 0b7bf62f3..ee975fd8f 100644
--- 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
index b78301276..3ff08d52b 100644
--- 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
index e34192932..aaf640389 100644
--- 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);