diff options
Diffstat (limited to 'gcc/ada/par-load.adb')
| -rw-r--r-- | gcc/ada/par-load.adb | 23 |
1 files changed, 10 insertions, 13 deletions
diff --git a/gcc/ada/par-load.adb b/gcc/ada/par-load.adb index f924523d87d..1faef63d60d 100644 --- a/gcc/ada/par-load.adb +++ b/gcc/ada/par-load.adb @@ -322,11 +322,10 @@ begin if Spec_Name /= No_Unit_Name then Unum := Load_Unit - (Load_Name => Spec_Name, - Required => True, - Subunit => False, - Error_Node => Curunit, - From_Limited_With => From_Limited_With); + (Load_Name => Spec_Name, + Required => True, + Subunit => False, + Error_Node => Curunit); if Unum /= No_Unit then Set_Parent_Spec (Unit (Curunit), Cunit (Unum)); @@ -389,14 +388,12 @@ begin Unum := Load_Unit - (Load_Name => Spec_Name, - Required => False, - Subunit => False, - Error_Node => With_Node, - Renamings => True, - From_Limited_With => From_Limited_With - or else - Limited_Present (Context_Node)); + (Load_Name => Spec_Name, + Required => False, + Subunit => False, + Error_Node => With_Node, + Renamings => True, + With_Node => Context_Node); -- If we find the unit, then set spec pointer in the N_With_Clause -- to point to the compilation unit for the spec. Remember that |