file_comments: add Initialize and Finalize

3 files changed, 20 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;
diff --git a/src/file_comments.ads b/src/file_comments.ads
index 0869ed31b..8bb4d117d 100644
--- a/src/file_comments.ads
+++ b/src/file_comments.ads
@@ -91,6 +91,10 @@ package File_Comments is
    function Get_Next_Comment (File : Source_File_Entry;
                               Idx : Comment_Index)
                              return Comment_Index;
+
+   --  For the whole package.
+   procedure Initialize;
+   procedure Finalize;
 private
    type Comments_Range is record
       --  Range of saved comments.
diff --git a/src/options.adb b/src/options.adb
index 0bff712b9..44abdb2c4 100644
--- a/src/options.adb
+++ b/src/options.adb
@@ -25,6 +25,7 @@ with PSL.Nodes;
 with PSL.Dump_Tree;
 with Flags; use Flags;
 with Files_Map;
+with File_Comments;
 
 with Vhdl.Nodes;
 with Vhdl.Lists;
@@ -46,6 +47,7 @@ package body Options is
       Vhdl.Nodes.Initialize;
       Elab.Vhdl_Objtypes.Initialize;
       Files_Map.Initialize;
+      File_Comments.Initialize;
       Libraries.Initialize;
       PSL.Nodes.Init (Libraries.Library_Location);
       PSL.Dump_Tree.Dump_Hdl_Node := Vhdl.Disp_Tree.Disp_Tree_For_Psl'Access;
@@ -60,6 +62,7 @@ package body Options is
       Vhdl.Nodes.Finalize;
       Elab.Vhdl_Objtypes.Finalize;
       Files_Map.Finalize;
+      File_Comments.Finalize;
       Libraries.Finalize;
       --  TODO: finalize errors (reset counters, handlers...)
       --  TODO: PSL