https://gcc.gnu.org/g:725e4c5760a9ac29a29a28ca59352dcd97f3ea9f
commit r16-4243-g725e4c5760a9ac29a29a28ca59352dcd97f3ea9f Author: Ronan Desplanques <[email protected]> Date: Wed Sep 24 14:53:18 2025 +0200 ada: Remove obsolete code This patch removes code that has been unused since the project manager infrastructure was retired. gcc/ada/ChangeLog: * fmap.ads (Add_Forbidden_File_Name): Remove obsolete code. * fmap.adb (Forbidden_Names, Add_Forbidden_File_Name, Mapped_Path_Name, Reset_Tables): Remove obsolete code. Diff: --- gcc/ada/fmap.adb | 22 ---------------------- gcc/ada/fmap.ads | 5 ----- 2 files changed, 27 deletions(-) diff --git a/gcc/ada/fmap.adb b/gcc/ada/fmap.adb index 4ca4f2330875..f5e0540e0f8f 100644 --- a/gcc/ada/fmap.adb +++ b/gcc/ada/fmap.adb @@ -106,23 +106,6 @@ package body Fmap is Last_In_Table : Int := 0; - package Forbidden_Names is new GNAT.HTable.Simple_HTable ( - Header_Num => Header_Num, - Element => Boolean, - No_Element => False, - Key => File_Name_Type, - Hash => Hash, - Equal => "="); - - ----------------------------- - -- Add_Forbidden_File_Name -- - ----------------------------- - - procedure Add_Forbidden_File_Name (Name : File_Name_Type) is - begin - Forbidden_Names.Set (Name, True); - end Add_Forbidden_File_Name; - --------------------- -- Add_To_File_Map -- --------------------- @@ -401,10 +384,6 @@ package body Fmap is Index : Int := No_Entry; begin - if Forbidden_Names.Get (File) then - return Error_File_Name; - end if; - Index := File_Hash_Table.Get (File); if Index = No_Entry then @@ -424,7 +403,6 @@ package body Fmap is Path_Mapping.Init; Unit_Hash_Table.Reset; File_Hash_Table.Reset; - Forbidden_Names.Reset; Last_In_Table := 0; end Reset_Tables; diff --git a/gcc/ada/fmap.ads b/gcc/ada/fmap.ads index 9fb77d8d5453..02f45882a037 100644 --- a/gcc/ada/fmap.ads +++ b/gcc/ada/fmap.ads @@ -70,9 +70,4 @@ package Fmap is procedure Reset_Tables; -- Initialize all the internal data structures - procedure Add_Forbidden_File_Name (Name : File_Name_Type); - -- Indicate that a source file name is forbidden. This is used when there - -- are excluded sources in projects (attributes Excluded_Source_Files or - -- Locally_Removed_Files). - end Fmap;
