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 --git a/gcc/ada/fmap.adb b/gcc/ada/fmap.adb
index 4ca4f23308754e82024eeca0b1dc31911bd06ea3..f5e0540e0f8f9b44e77569b9023e85c7543fa9ca 100644 (file)
--- 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 9fb77d8d54533cfb12358e1fb8ca2c40dba52d85..02f45882a037250d0d241158544c3707642a0548 100644 (file)
--- 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;