diff options
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; |