diff options
| -rw-r--r-- | src/vhdl/vhdl-nodes.adb | 2 | ||||
| -rw-r--r-- | src/vhdl/vhdl-nodes.adb.in | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-nodes.adb b/src/vhdl/vhdl-nodes.adb index b5dd5e0bd..0b7bf62f3 100644 --- a/src/vhdl/vhdl-nodes.adb +++ b/src/vhdl/vhdl-nodes.adb @@ -739,6 +739,8 @@ 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 f742a1dec..b78301276 100644 --- a/src/vhdl/vhdl-nodes.adb.in +++ b/src/vhdl/vhdl-nodes.adb.in @@ -739,6 +739,8 @@ package body Vhdl.Nodes is procedure Initialize is begin + Free_Chain := Null_Node; + Nbr_Free_Hooks := 0; Nodet.Init; end Initialize; |