[COMMITTED 2/6] ada: Remove obsolete code

[Marc Poulhiès]

From: Ronan Desplanques <desplanq...@adacore.com>

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.

Tested on x86_64-pc-linux-gnu, committed on master.

---
 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 4ca4f233087..f5e0540e0f8 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 9fb77d8d545..02f45882a03 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;
-- 
2.43.0