Message ID | 20140801133530.GA12281@adacore.com |
---|---|
State | New |
Headers | show |
Index: sem_res.adb =================================================================== --- sem_res.adb (revision 213460) +++ sem_res.adb (working copy) @@ -7176,7 +7176,11 @@ New_Occurrence_Of (PPC_Wrapper (Nam), Loc), Parameter_Associations => New_Actuals); Rewrite (N, New_Call); - Analyze_And_Resolve (N); + + -- Preanalyze and resolve new call. Current procedure is called + -- from Resolve_Call, after which expansion will take place. + + Preanalyze_And_Resolve (N); return; end; end if;