- Make_Generic_Association (Loc, Explicit_Generic_Actual_Parameter =>
- New_Occurrence_Of (Typ, Loc)),
- Make_Generic_Association (Loc, Explicit_Generic_Actual_Parameter =>
- New_Occurrence_Of (Ent, Loc)),
- Make_Generic_Association (Loc, Explicit_Generic_Actual_Parameter =>
- Make_String_Literal (Loc, Vnm))));
+ Make_Generic_Association (Loc,
+ Explicit_Generic_Actual_Parameter =>
+ New_Occurrence_Of (Obj_Typ, Loc)),
+ Make_Generic_Association (Loc,
+ Explicit_Generic_Actual_Parameter => Obj),
+ Make_Generic_Association (Loc,
+ Explicit_Generic_Actual_Parameter =>
+ Make_String_Literal (Loc, Vnm))));