diff options
Diffstat (limited to 'src/files_map.adb')
-rw-r--r-- | src/files_map.adb | 6 |
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; |