diff mbox series

[COMMITTED] ada: Remove unused runtime entity

Message ID 20240109131553.744686-1-poulhies@adacore.com
State Accepted
Headers
Series [COMMITTED] ada: Remove unused runtime entity |

Checks

Context Check Description
snail/gcc-patch-check success Github commit url

Commit Message

Marc Poulhiès Jan. 9, 2024, 1:15 p.m. UTC 
  From: Eric Botcazou <ebotcazou@adacore.com>

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.

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

---
 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 mbox series

Patch

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,