diff options
author | Javier Miranda <miranda@adacore.com> | 2005-06-16 10:42:20 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-06-16 10:42:20 +0200 |
commit | e9437007b8d68b91b2d1ac803f8938c54b6c4188 (patch) | |
tree | 394b0f483b526345d7b13eec1043d26e3b4ee815 /gcc/ada/par.adb | |
parent | d37209bffbef004f2de1040b938ae0d1eeb493aa (diff) | |
download | gcc-e9437007b8d68b91b2d1ac803f8938c54b6c4188.zip gcc-e9437007b8d68b91b2d1ac803f8938c54b6c4188.tar.gz gcc-e9437007b8d68b91b2d1ac803f8938c54b6c4188.tar.bz2 |
lib-load.ads, [...] (Load_Unit): Addition of a new parameter that indicates if...
2005-06-14 Javier Miranda <miranda@adacore.com>
Jose Ruiz <ruiz@adacore.com>
Robert Dewar <dewar@adacore.com>
Ed Schonberg <schonberg@adacore.com>
* lib-load.ads, lib-load.adb (Load_Unit): Addition of a new parameter
that indicates if we are parsing a compilation unit found in a
limited-with clause.
It is use to avoid the circularity check.
* par.ads, par.adb (Par): Addition of a new parameter to indicate if
we are parsing a compilation unit found in a limited-with clause. This
is use to avoid the circularity check.
* par-load.adb (Load): Indicate Lib.Load_Unit if we are loading the
unit as a consequence of parsing a limited-with clause. This is used
to avoid the circularity check.
* sem_ch10.adb: Suppress Ada 2005 unit warning if -gnatwY used
(Analyze_Context): Limited-with clauses are now allowed
in more compilation units.
(Analyze_Subunit_Context, Check_Parent): Protect the frontend
againts previously reported critical errors in context clauses
(Install_Limited_Withed_Unit): Code cleanup plus static detection
of two further errors: renamed subprograms and renamed packages
are not allowed in limited with clauses.
(Install_Siblings): Do not install private_with_clauses on the package
declaration for a non-private child unit.
(Re_Install_Parents): When a parent of the subunit is reinstalled,
reset visibility of child units properly.
(Install_Withed_Unit): When a child unit appears in a with_clause of its
parent, it is immediately visible.
From-SVN: r101045
Diffstat (limited to 'gcc/ada/par.adb')
-rw-r--r-- | gcc/ada/par.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/par.adb b/gcc/ada/par.adb index 290ad0b..02ef4b0 100644 --- a/gcc/ada/par.adb +++ b/gcc/ada/par.adb @@ -50,8 +50,10 @@ with Tbuild; use Tbuild; -- Par -- --------- -function Par (Configuration_Pragmas : Boolean) return List_Id is - +function Par + (Configuration_Pragmas : Boolean; + From_Limited_With : Boolean := False) return List_Id +is Num_Library_Units : Natural := 0; -- Count number of units parsed (relevant only in syntax check only mode, -- since in semantics check mode only a single unit is permitted anyway) |