1 files changed, 5 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-nodes.adb b/src/vhdl/vhdl-nodes.adb
index f02857bd4..b879ba275 100644
--- a/src/vhdl/vhdl-nodes.adb
+++ b/src/vhdl/vhdl-nodes.adb
@@ -741,10 +741,14 @@ package body Vhdl.Nodes is
 
    procedure Initialize is
    begin
-      Nodet.Free;
       Nodet.Init;
    end Initialize;
 
+   procedure Finalize is
+   begin
+      Nodet.Free;
+   end Finalize;
+
    function Is_Null (Node : Iir) return Boolean is
    begin
       return Node = Null_Iir;