diff options
| author | Ed Schonberg <schonberg@adacore.com> | 2005-09-05 09:50:46 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-09-05 09:50:46 +0200 |
| commit | dfbe160a82072f90a9ba5b2a138f3fa83edf7ba3 (patch) | |
| tree | bd5a3ff7561737b1ee8c2009f67a1fa080e2c5a7 /gcc/ada/par-load.adb | |
| parent | 826757551170eec3ec794d961b5b6dc24d1244cd (diff) | |
| download | gcc-dfbe160a82072f90a9ba5b2a138f3fa83edf7ba3.zip gcc-dfbe160a82072f90a9ba5b2a138f3fa83edf7ba3.tar.gz gcc-dfbe160a82072f90a9ba5b2a138f3fa83edf7ba3.tar.bz2 | |
fname-sf.adb, [...]: Remove redundant use_clauses.
2005-09-01 Ed Schonberg <schonberg@adacore.com>
Thomas Quinot <quinot@adacore.com>
* 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
Diffstat (limited to 'gcc/ada/par-load.adb')
| -rw-r--r-- | gcc/ada/par-load.adb | 19 |
1 files changed, 7 insertions, 12 deletions
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 |