file_comments: add Initialize and Finalize

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;