1 files changed, 5 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-nodes.adb.in b/src/vhdl/vhdl-nodes.adb.in
index e35ed1832..5f98405a3 100644
--- a/src/vhdl/vhdl-nodes.adb.in
+++ b/src/vhdl/vhdl-nodes.adb.in
@@ -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;