gcc/ada/
* exp_ch6.adb (Make_Build_In_Place_Call_Allocator): Normalize
the associated node for internally generated objects to be like
their SOAAT counter-parts.
New_Occurrence_Of (Etype (BIP_Func_Call), Loc),
Expression => New_Copy_Tree (BIP_Func_Call))));
+ -- Manually set the associated node for the anonymous access type to
+ -- be its local declaration to avoid confusing and complicating
+ -- the accessibility machinary.
+
+ Set_Associated_Node_For_Itype (Anon_Type, Tmp_Decl);
+
Expander_Mode_Save_And_Set (False);
Insert_Action (Allocator, Tmp_Decl);
Expander_Mode_Restore;