From 15c6de72bc8dd316cb5262e1b5f373ca45b05f68 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 26 Jun 2021 09:41:59 +0200
Subject: vhdl-nodes: do not reset free hooks on initialization

---
 src/vhdl/vhdl-nodes.adb    | 1 -
 src/vhdl/vhdl-nodes.adb.in | 1 -
 src/vhdl/vhdl-nodes.ads    | 2 ++
 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);
 
-- 
cgit v1.2.3