diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2023-12-13 15:07:10 +0100 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2024-01-09 14:13:32 +0100 |
| commit | b4beadb39a6cc97a6a628a99752c48123b37db60 (patch) | |
| tree | 5fff27f40bcde375b4cf75261c7d4bd9564bf15d /gcc | |
| parent | 1e964635b64a8e65492751082b39c677f95f39e3 (diff) | |
| download | gcc-b4beadb39a6cc97a6a628a99752c48123b37db60.zip gcc-b4beadb39a6cc97a6a628a99752c48123b37db60.tar.gz gcc-b4beadb39a6cc97a6a628a99752c48123b37db60.tar.bz2 | |
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.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/libgnat/s-finmas.adb | 14 | ||||
| -rw-r--r-- | gcc/ada/libgnat/s-finmas.ads | 4 | ||||
| -rw-r--r-- | gcc/ada/rtsfind.ads | 2 |
3 files changed, 0 insertions, 20 deletions
diff --git a/gcc/ada/libgnat/s-finmas.adb b/gcc/ada/libgnat/s-finmas.adb index 30927a4..a231b6b 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 45faf45..404b671 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 669f6df..33e8472 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, |