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 --git a/gcc/ada/libgnat/s-finmas.adb b/gcc/ada/libgnat/s-finmas.adb
index 30927a4fb21abc30efaa95eefe5d56fda44d8194..a231b6bd874d2131352f51d849f1d4260fc08f85 100644 (file)
--- 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 45faf45b02e99bb746fa969cd113e0e60efa0fa9..404b67171c2987f4eb110e5cb94809bf46d0fcd9 100644 (file)
--- 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 669f6df79cb684b0289d3fd1a48b87599403eba4..33e8472ae067d97895c432f0ccce2e47a3565c25 100644 (file)
--- 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,