[gcc r16-1380] ada: Fix fallout of latest change
Marc Poulhies
dkm@gcc.gnu.org
Tue Jun 10 07:35:54 GMT 2025
https://gcc.gnu.org/g:c737dbfc02079479ffa5d84a2b88f27949b86991
commit r16-1380-gc737dbfc02079479ffa5d84a2b88f27949b86991
Author: Eric Botcazou <ebotcazou@adacore.com>
Date: Wed Mar 26 00:37:22 2025 +0100
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:
---
gcc/ada/freeze.adb | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb
index 076d4eead6b9..35f14d64ad3b 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
More information about the Gcc-cvs
mailing list