From: Eric Botcazou Date: Fri, 24 Nov 2023 11:07:28 +0000 (+0100) Subject: ada: Add missing guard to previous change X-Git-Tag: basepoints/gcc-15~3445 X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=40cf86ef4a51438a4c08e5937e5cbc61c1c28ec2;p=thirdparty%2Fgcc.git ada: Add missing guard to previous change Ancestor_Type is overloaded with Aggregate_Bounds on N_Aggregate nodes so its access needs to be guarded in Copy_Generic_Node. gcc/ada/ * sem_ch12.adb (Copy_Generic_Node): Add guard for Ancestor_Type. --- diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index 2b8436d7c18d..bfb400f56422 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -8518,10 +8518,12 @@ package body Sem_Ch12 is -- Moreover, for a full aggregate, if the type is a derived tagged -- type and has a global ancestor, then also restore the full view - -- of this ancestor, and do so up to the root type. + -- of this ancestor and do so up to the root type. Beware that the + -- Ancestor_Type field is overloaded, so test that it's an entity. if Nkind (N) = N_Aggregate and then Present (Ancestor_Type (N)) + and then Nkind (Ancestor_Type (N)) in N_Entity then declare Root_Typ : constant Entity_Id :=