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/str_table.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/str_table.adb')
| -rw-r--r-- | src/str_table.adb | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/str_table.adb b/src/str_table.adb index 46a42dfe8..9993a68b9 100644 --- a/src/str_table.adb +++ b/src/str_table.adb @@ -90,7 +90,11 @@ package body Str_Table is procedure Initialize is begin - String8_Table.Free; String8_Table.Init; end Initialize; + + procedure Finalize is + begin + String8_Table.Free; + end Finalize; end Str_Table; |