diff options
| author | Marc Poulhiès <poulhies@adacore.com> | 2022-04-04 14:09:45 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-05-18 08:41:04 +0000 |
| commit | 9af8c27f090ae549f43e40cff00a9d702db0ac85 (patch) | |
| tree | ebc03672c474e4e32b5e5c9b41f6c03db4f5501a /gcc/ada/par-ch4.adb | |
| parent | dea655ad57bc17377c87306e0c538ad8c065493d (diff) | |
| download | gcc-9af8c27f090ae549f43e40cff00a9d702db0ac85.zip gcc-9af8c27f090ae549f43e40cff00a9d702db0ac85.tar.gz gcc-9af8c27f090ae549f43e40cff00a9d702db0ac85.tar.bz2 | |
[Ada] Fix the parsing for delta aggregate
In Ada 2022, delta aggregate must use parentheses not square brackets
except array delta aggregates.
gcc/ada/
* gen_il-gen-gen_nodes.adb (Gen_IL.Gen.Gen_Nodes): Add
Is_Homogeneous_Aggregate field for N_Delta_Aggregate nodes.
* par-ch4.adb (P_Aggregate_Or_Paren_Expr): Minor reformatting.
* sem_aggr.adb (Resolve_Delta_Aggregate): Reject square brackets
for record aggregate.
(Resolve_Record_Aggregate): Uniformise error message.
Diffstat (limited to 'gcc/ada/par-ch4.adb')
| -rw-r--r-- | gcc/ada/par-ch4.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/par-ch4.adb b/gcc/ada/par-ch4.adb index 0895be1..bfefd14 100644 --- a/gcc/ada/par-ch4.adb +++ b/gcc/ada/par-ch4.adb @@ -1682,6 +1682,7 @@ package body Ch4 is case Start_Token is when Tok_Left_Bracket => + Set_Component_Associations (Aggregate_Node, Assoc_List); Set_Is_Homogeneous_Aggregate (Aggregate_Node); T_Right_Bracket; |