diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-12-30 10:29:16 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-12-30 10:29:16 +0100 |
commit | f1c30ad16e0914455ee2c84e80714f6b271021f2 (patch) | |
tree | 11ebb7a91faeed8c17fdaf84cd8cd14d334d8c6a /src/vhdl/vhdl-nodes.adb.in | |
parent | 56dde6c446367f85882d288d7606015ace7f80ed (diff) | |
download | ghdl-f1c30ad16e0914455ee2c84e80714f6b271021f2.tar.gz ghdl-f1c30ad16e0914455ee2c84e80714f6b271021f2.tar.bz2 ghdl-f1c30ad16e0914455ee2c84e80714f6b271021f2.zip |
Rework initialization and finalization.
libghdl can now be re-initialized.
Diffstat (limited to 'src/vhdl/vhdl-nodes.adb.in')
-rw-r--r-- | src/vhdl/vhdl-nodes.adb.in | 6 |
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; |