From 765fc22ca5dbba94198e555ebcebb1944cf24731 Mon Sep 17 00:00:00 2001 From: Viljar Indus Date: Tue, 6 Jun 2023 14:55:04 +0300 Subject: ada: Fix expanding container aggregates Ensure that that container aggregate expressions are expanded as such and not as records even if the type of the expression is a record. gcc/ada/ * exp_aggr.adb (Expand_N_Aggregate): Ensure that container aggregate expressions do not get expanded as records but instead as container aggregates. --- gcc/ada/exp_aggr.adb | 1 + 1 file changed, 1 insertion(+) (limited to 'gcc/ada') diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb index 5e22fef..d922c3b 100644 --- a/gcc/ada/exp_aggr.adb +++ b/gcc/ada/exp_aggr.adb @@ -6463,6 +6463,7 @@ package body Exp_Aggr is if Is_Record_Type (T) and then not Is_Private_Type (T) + and then not Is_Homogeneous_Aggregate (N) then Expand_Record_Aggregate (N); -- cgit v1.1