diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2021-03-05 10:11:57 -0500 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-06-17 10:32:15 -0400 |
| commit | b4d46ee9a15b83552134476e9c0f691df1bfa123 (patch) | |
| tree | a86a9ba482b926cfd6a3b7d6f2bd85f64f076e85 /gcc | |
| parent | aeafd222d4c132efee8f7b47a48cc1c7b5a0b4c9 (diff) | |
| download | gcc-b4d46ee9a15b83552134476e9c0f691df1bfa123.zip gcc-b4d46ee9a15b83552134476e9c0f691df1bfa123.tar.gz gcc-b4d46ee9a15b83552134476e9c0f691df1bfa123.tar.bz2 | |
[Ada] Crash on a nested aggregate containing controlled objects
gcc/ada/
* exp_util.adb (Find_Hook_Context): Do not stop on an aggregate
node.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_util.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index c2cdb4c..71052c0 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -6220,6 +6220,9 @@ package body Exp_Util is | N_Discriminant_Association | N_Parameter_Association | N_Pragma_Argument_Association + | N_Aggregate + | N_Delta_Aggregate + | N_Extension_Aggregate and then Nkind (Parent (Par)) not in N_Function_Call | N_Procedure_Call_Statement | N_Entry_Call_Statement |