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/lists.adb | |
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/lists.adb')
-rw-r--r-- | src/lists.adb | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/lists.adb b/src/lists.adb index f6739cd36..bd0cb5480 100644 --- a/src/lists.adb +++ b/src/lists.adb @@ -157,11 +157,15 @@ package body Lists is List := Null_List; end Destroy_List; - procedure Initialize is + procedure Finalize is begin Listt.Free; - Listt.Init; Chunkt.Free; + end Finalize; + + procedure Initialize is + begin + Listt.Init; Chunkt.Init; List_Free_Chain := Null_List; Chunk_Free_List := No_Chunk_Index; |