From 725e4c5760a9ac29a29a28ca59352dcd97f3ea9f Mon Sep 17 00:00:00 2001
From: Ronan Desplanques <desplanques@adacore.com>
Date: Wed, 24 Sep 2025 14:53:18 +0200
Subject: [PATCH] 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.
---
 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;
-- 
2.47.3