[Ada] Crash on a nested aggregate containing controlled objects

gcc/ada/

	* exp_util.adb (Find_Hook_Context): Do not stop on an aggregate
	node.

diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb
index c2cdb4c..71052c0 100644 (file)
--- 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