From: Eric Botcazou <ebotca...@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 --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,
--
2.43.0
