From dfbe160a82072f90a9ba5b2a138f3fa83edf7ba3 Mon Sep 17 00:00:00 2001 From: Ed Schonberg Date: Mon, 5 Sep 2005 09:50:46 +0200 Subject: fname-sf.adb, [...]: Remove redundant use_clauses. 2005-09-01 Ed Schonberg Thomas Quinot * fname-sf.adb, mlib-tgt.ads, back_end.adb, casing.adb, g-debpoo.adb, g-excact.adb, g-spipat.adb, g-spipat.ads, g-thread.adb, lib-list.adb, makeutl.adb, mlib.adb, osint.adb, par-ch10.adb, par-load.adb, prep.adb, prj.adb, prj-attr.ads, prj-env.ads, prj-err.adb, prj-err.ads, prj-ext.adb, prj-ext.ads, prj-makr.adb, prj-makr.ads, prj-pars.ads, prj-part.adb, prj-strt.adb, prj-tree.ads, prj-util.ads, sem_dist.adb, sinput-c.ads, sinput-l.ads, sinput-p.ads, styleg-c.ads, xr_tabls.adb, prj-attr-pm.ads, makegpr.adb: Remove redundant use_clauses. From-SVN: r103854 --- gcc/ada/par-load.adb | 19 +++++++------------ 1 file changed, 7 insertions(+), 12 deletions(-) (limited to 'gcc/ada/par-load.adb') diff --git a/gcc/ada/par-load.adb b/gcc/ada/par-load.adb index 469a971..0f5674b 100644 --- a/gcc/ada/par-load.adb +++ b/gcc/ada/par-load.adb @@ -30,13 +30,9 @@ -- and parents of subunits. All these units are loaded and pointers installed -- in the tree as described in the spec of package Lib. -with Fname; use Fname; with Fname.UF; use Fname.UF; with Lib.Load; use Lib.Load; with Uname; use Uname; -with Namet; use Namet; -with Casing; use Casing; -with Opt; use Opt; with Osint; use Osint; with Sinput.L; use Sinput.L; with Stylesw; use Stylesw; @@ -300,11 +296,10 @@ begin return; end if; - -- If current unit is a child unit spec, load its parent - -- If the child unit is loaded through a limited with, the parent - -- must be as well. + -- If current unit is a child unit spec, load its parent. If the child unit + -- is loaded through a limited with, the parent must be as well. - elsif Nkind (Unit (Curunit)) = N_Package_Declaration + elsif Nkind (Unit (Curunit)) = N_Package_Declaration or else Nkind (Unit (Curunit)) = N_Subprogram_Declaration or else Nkind (Unit (Curunit)) in N_Generic_Declaration or else Nkind (Unit (Curunit)) in N_Generic_Instantiation @@ -322,10 +317,10 @@ begin if Spec_Name /= No_Name then Unum := Load_Unit - (Load_Name => Spec_Name, - Required => True, - Subunit => False, - Error_Node => Curunit, + (Load_Name => Spec_Name, + Required => True, + Subunit => False, + Error_Node => Curunit, From_Limited_With => From_Limited_With); if Unum /= No_Unit then -- cgit v1.1