From 78b8a597316490105995f636f00c972235ac6237 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Fri, 29 Nov 2024 09:04:09 +0100 Subject: ada: Remove last call to Preanalyze_And_Resolve from Exp_Aggr All the expressions are now at least preanalyzed in a non-iterated context, so we do not need to redo it in Aggr_Assignment_OK_For_Backend, given that Is_OK_Aggregate explicitly rejects iterated component associations. gcc/ada/ChangeLog: * exp_aggr.adb (Aggr_Assignment_OK_For_Backend): Do not call again Preanalyze_And_Resolve on the expression. --- gcc/ada/exp_aggr.adb | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'gcc') diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb index c935543..c0218c9 100644 --- a/gcc/ada/exp_aggr.adb +++ b/gcc/ada/exp_aggr.adb @@ -534,10 +534,7 @@ package body Exp_Aggr is end if; -- If the expression has side effects (e.g. contains calls with - -- potential side effects) reject as well. We only preanalyze the - -- expression to prevent the removal of intended side effects. - - Preanalyze_And_Resolve (Expr, Ctyp); + -- potential side effects), then reject it as well. if not Side_Effect_Free (Expr) then return False; -- cgit v1.1