1 files changed, 5 insertions, 1 deletions
diff --git a/src/files_map.adb b/src/files_map.adb
index 9e3fd1ac9..3c17715ca 100644
--- a/src/files_map.adb
+++ b/src/files_map.adb
@@ -1213,12 +1213,16 @@ package body Files_Map is
    pragma Unreferenced (Debug_Source_Lines);
    pragma Unreferenced (Debug_Source_Loc);
 
-   procedure Initialize is
+   procedure Finalize is
    begin
       for I in Source_Files.First .. Source_Files.Last loop
          Free_Source_File (I);
       end loop;
       Source_Files.Free;
+   end Finalize;
+
+   procedure Initialize is
+   begin
       Source_Files.Init;
       Next_Location := Location_Nil + 1;
    end Initialize;