From: Eric Botcazou <ebotcazou@adacore.com>
Date: Mon, 30 Jan 2023 12:05:09 +0000 (+0100)
Subject: ada: Fix missing warning on aggregate with iterated component
X-Git-Tag: basepoints/gcc-15~9237
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e07e6ea6924e594b337ebf9cb175bc6b8e213923;p=thirdparty%2Fgcc.git

ada: Fix missing warning on aggregate with iterated component

This happens when the iterated component does not really iterate.

gcc/ada/

	* exp_aggr.adb (Expand_Array_Aggregate): Do not set Warnings_Off on
	the temporary created when in-place expansion is not possible.
---

diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb
index cf8bac0f4bf4..fe61e0ec90bf 100644
--- a/gcc/ada/exp_aggr.adb
+++ b/gcc/ada/exp_aggr.adb
@@ -7068,7 +7068,6 @@ package body Exp_Aggr is
              Defining_Identifier => Tmp,
              Object_Definition   => New_Occurrence_Of (Typ, Loc));
          Set_No_Initialization (Tmp_Decl, True);
-         Set_Warnings_Off (Tmp);
 
          --  If we are within a loop, the temporary will be pushed on the
          --  stack at each iteration. If the aggregate is the expression