Message ID | 20121002084016.GA15277@adacore.com |
---|---|
State | New |
Headers | show |
Index: lib-xref.adb =================================================================== --- lib-xref.adb (revision 191888) +++ lib-xref.adb (working copy) @@ -945,6 +945,13 @@ then Ent := E; + -- Ditto for the formals of such a subprogram + + elsif Is_Overloadable (Scope (E)) + and then Is_Child_Unit (Scope (E)) + then + Ent := E; + -- Record components of discriminated subtypes or derived types must -- be treated as references to the original component.