diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-12-06 18:16:59 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-12-06 18:16:59 +0100 |
commit | 0ab45a7186882093a2f619f165ff66e4a22fac76 (patch) | |
tree | 30ac912c280e798245d07fb6e43f3dec43430c96 /src/file_comments.adb | |
parent | 93cb47c448978def5fc72674fae13a2622190695 (diff) | |
download | ghdl-0ab45a7186882093a2f619f165ff66e4a22fac76.tar.gz ghdl-0ab45a7186882093a2f619f165ff66e4a22fac76.tar.bz2 ghdl-0ab45a7186882093a2f619f165ff66e4a22fac76.zip |
file_comments: add Initialize and Finalize
Diffstat (limited to 'src/file_comments.adb')
-rw-r--r-- | src/file_comments.adb | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/file_comments.adb b/src/file_comments.adb index ef292c43f..d984d7d04 100644 --- a/src/file_comments.adb +++ b/src/file_comments.adb @@ -399,4 +399,17 @@ package body File_Comments is return No_Comment_Index; end if; end Get_Next_Comment; + + procedure Finalize is + begin + for I in Comments_Table.First .. Comments_Table.Last loop + File_Comments_Tables.Free (Comments_Table.Table (I)); + end loop; + Comments_Table.Free; + end Finalize; + + procedure Initialize is + begin + Comments_Table.Init; + end Initialize; end File_Comments; |