From b4beadb39a6cc97a6a628a99752c48123b37db60 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Wed, 13 Dec 2023 15:07:10 +0100 Subject: [PATCH] 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. --- 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,