From e07e6ea6924e594b337ebf9cb175bc6b8e213923 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Mon, 30 Jan 2023 13:05:09 +0100 Subject: [PATCH] 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. --- gcc/ada/exp_aggr.adb | 1 - 1 file changed, 1 deletion(-) 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 -- 2.47.2