From: Piotr Trojanek Date: Mon, 1 Aug 2022 08:51:46 +0000 (+0200) Subject: [Ada] Remove VMS specific routine that is no longer referenced X-Git-Tag: basepoints/gcc-14~4781 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2f578c3e50eb14d89087e2b34fd856c44b086123;p=thirdparty%2Fgcc.git [Ada] Remove VMS specific routine that is no longer referenced Code cleanup related to resctrition No_Local_Allocators. gcc/ada/ * exp_util.ads (Entry_Names_OK): Remove spec. * exp_util.adb (Entry_Names_OK): Remove body. --- diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index 2be81a544a8b..0bc22a4b5a10 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -5187,19 +5187,6 @@ package body Exp_Util is end if; end Ensure_Defined; - -------------------- - -- Entry_Names_OK -- - -------------------- - - function Entry_Names_OK return Boolean is - begin - return - not Restricted_Profile - and then not Global_Discard_Names - and then not Restriction_Active (No_Implicit_Heap_Allocations) - and then not Restriction_Active (No_Local_Allocators); - end Entry_Names_OK; - ------------------- -- Evaluate_Name -- ------------------- diff --git a/gcc/ada/exp_util.ads b/gcc/ada/exp_util.ads index d854672ccd8e..a21fb8b5c2a7 100644 --- a/gcc/ada/exp_util.ads +++ b/gcc/ada/exp_util.ads @@ -509,11 +509,6 @@ package Exp_Util is -- used to ensure that an Itype is properly defined outside a conditional -- construct when it is referenced in more than one branch. - function Entry_Names_OK return Boolean; - -- Determine whether it is appropriate to dynamically allocate strings - -- which represent entry [family member] names. These strings are created - -- by the compiler and used by GDB. - procedure Evaluate_Name (Nam : Node_Id); -- Remove all side effects from a name which appears as part of an object -- renaming declaration. Similarly to Force_Evaluation, it removes the