From: Eric Botcazou Date: Tue, 25 Mar 2025 23:37:22 +0000 (+0100) Subject: ada: Fix fallout of latest change X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c737dbfc02079479ffa5d84a2b88f27949b86991;p=thirdparty%2Fgcc.git ada: Fix fallout of latest change Freeze_Static_Object needs to deal with the objects that have been created by Insert_Conditional_Object_Declaration. gcc/ada/ChangeLog: * freeze.adb (Freeze_Static_Object): Do not issue any error message for compiler-generated entities. --- diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index 076d4eead6b..35f14d64ad3 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -10233,11 +10233,17 @@ package body Freeze is -- issue an error message saying that this object cannot be imported -- or exported. If it has an address clause it is an overlay in the -- current partition and the static requirement is not relevant. - -- Do not issue any error message when ignoring rep clauses. + -- Do not issue any error message when ignoring rep clauses or for + -- compiler-generated entities. if Ignore_Rep_Clauses then null; + elsif not Comes_From_Source (E) then + pragma + Assert (Nkind (Parent (Declaration_Node (E))) in N_Case_Statement + | N_If_Statement); + elsif Is_Imported (E) then if No (Address_Clause (E)) then Error_Msg_N