Message ID | 20140801133124.GA30895@adacore.com |
---|---|
State | New |
Headers | show |
Index: sem_res.adb =================================================================== --- sem_res.adb (revision 213451) +++ sem_res.adb (working copy) @@ -1102,8 +1102,11 @@ end if; end if; - Nam := New_Copy (N); + -- The node is the name of the parameterless call. Preserve its + -- descendants, which may be complex expressions. + Nam := Relocate_Node (N); + -- If overloaded, overload set belongs to new copy Save_Interps (N, Nam);