[gcc r14-7056] ada: Remove unused runtime entity

[Marc Poulhi?s]

https://gcc.gnu.org/g:b4beadb39a6cc97a6a628a99752c48123b37db60

commit r14-7056-gb4beadb39a6cc97a6a628a99752c48123b37db60
Author: Eric Botcazou <ebotcazou@adacore.com>
Date:   Wed Dec 13 15:07:10 2023 +0100

    ada: Remove unused runtime entity
    
    The compiler has not generated direct attachments for a long time.
    
    gcc/ada/
    
            * rtsfind.ads (RE_Id): Remove RE_Attach.
            (RE_Unit_Table): Likewise.
            * libgnat/s-finmas.ads (Attach): Delete.
            * libgnat/s-finmas.adb (Attach): Likewise.

Diff:
---
 gcc/ada/libgnat/s-finmas.adb | 14 --------------
 gcc/ada/libgnat/s-finmas.ads |  4 ----
 gcc/ada/rtsfind.ads          |  2 --
 3 files changed, 20 deletions(-)

diff --git a/gcc/ada/libgnat/s-finmas.adb b/gcc/ada/libgnat/s-finmas.adb
index 30927a4fb21..a231b6bd874 100644
--- a/gcc/ada/libgnat/s-finmas.adb
+++ b/gcc/ada/libgnat/s-finmas.adb
@@ -70,20 +70,6 @@ package body System.Finalization_Masters is
       return System.Storage_Elements."+" (Addr, Offset);
    end Add_Offset_To_Address;
 
-   ------------
-   -- Attach --
-   ------------
-
-   procedure Attach (N : not null FM_Node_Ptr; L : not null FM_Node_Ptr) is
-   begin
-      Lock_Task.all;
-      Attach_Unprotected (N, L);
-      Unlock_Task.all;
-
-      --  Note: No need to unlock in case of an exception because the above
-      --  code can never raise one.
-   end Attach;
-
    ------------------------
    -- Attach_Unprotected --
    ------------------------
diff --git a/gcc/ada/libgnat/s-finmas.ads b/gcc/ada/libgnat/s-finmas.ads
index 45faf45b02e..404b67171c2 100644
--- a/gcc/ada/libgnat/s-finmas.ads
+++ b/gcc/ada/libgnat/s-finmas.ads
@@ -71,10 +71,6 @@ package System.Finalization_Masters is
    type Finalization_Master_Ptr is access all Finalization_Master;
    for Finalization_Master_Ptr'Storage_Size use 0;
 
-   procedure Attach (N : not null FM_Node_Ptr; L : not null FM_Node_Ptr);
-   --  Compiler interface, do not call from within the run-time. Prepend a
-   --  node to a specific finalization master.
-
    procedure Attach_Unprotected
      (N : not null FM_Node_Ptr;
       L : not null FM_Node_Ptr);
diff --git a/gcc/ada/rtsfind.ads b/gcc/ada/rtsfind.ads
index 669f6df79cb..33e8472ae06 100644
--- a/gcc/ada/rtsfind.ads
+++ b/gcc/ada/rtsfind.ads
@@ -918,7 +918,6 @@ package Rtsfind is
      RE_Attr_Long_Long_Float,            -- System.Fat_LLF
 
      RE_Add_Offset_To_Address,           -- System.Finalization_Masters
-     RE_Attach,                          -- System.Finalization_Masters
      RE_Base_Pool,                       -- System.Finalization_Masters
      RE_Finalization_Master,             -- System.Finalization_Masters
      RE_Finalization_Master_Ptr,         -- System.Finalization_Masters
@@ -2563,7 +2562,6 @@ package Rtsfind is
      RE_Attr_Long_Long_Float             => System_Fat_LLF,
 
      RE_Add_Offset_To_Address            => System_Finalization_Masters,
-     RE_Attach                           => System_Finalization_Masters,
      RE_Base_Pool                        => System_Finalization_Masters,
      RE_Finalization_Master              => System_Finalization_Masters,
      RE_Finalization_Master_Ptr          => System_Finalization_Masters,