diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-04-06 09:29:20 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-04-06 09:29:20 +0000 |
| commit | 498f964b79d6a5830bb41125423df37900fd0f81 (patch) | |
| tree | defb84df2af89396c0b0e9e24f0de9b74e6f261f /gcc/ada/par-load.adb | |
| parent | 3d572c5af04d49cb6315182f363a1f8911cf06fd (diff) | |
| download | gcc-498f964b79d6a5830bb41125423df37900fd0f81.tar.gz | |
2007-04-06 Robert Dewar <dewar@adacore.com>
Arnaud Charlet <charlet@adacore.com>
* a-diroro.ads: Inserted the pragma Unimplemented_Unit
* bindgen.adb (Gen_Output_File_Ada): Generate pragma Ada_95 at start
of files
Add mention of -Sev (set initialize_scalars option from environment
variable at run time) in gnatbind usage message.
* elists.ads, elists.adb: (Append_Unique_Elmt): New procedure
* fname-uf.ads: Minor comment fix
* osint.ads: Change pragma Elaborate to Elaborate_All
* par-load.adb: Add documentation.
* sem_cat.ads, sem_cat.adb: Minor code reorganization
* s-parint.ads (RCI_Locator) : Add 'Version' generic formal
* s-secsta.ads: Extra comments
* s-soflin.ads: Minor comment fixes
* s-stratt.ads (Block_Stream_Ops_OK): Removed.
* s-wchcon.ads: Minor comment addition
* treepr.adb: Minor change in message
(Print_Name,Print_Node): Make these debug printouts more robust: print
"no such..." instead of crashing on bad input.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@123606 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/par-load.adb')
| -rw-r--r-- | gcc/ada/par-load.adb | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gcc/ada/par-load.adb b/gcc/ada/par-load.adb index b69bbbb49a7..d73546843bb 100644 --- a/gcc/ada/par-load.adb +++ b/gcc/ada/par-load.adb @@ -84,7 +84,12 @@ procedure Load is -- Unit number of loaded unit Limited_With_Found : Boolean := False; - -- Set True if a limited WITH is found, used to ??? + -- We load the context items in two rounds: the first round handles normal + -- withed units and the second round handles Ada 2005 limited-withed units. + -- This is required to allow the low-level circuitry that detects circular + -- dependencies of units the correct notification of errors (see comment + -- bellow). This variable is used to indicate that the second round is + -- required. function Same_File_Name_Except_For_Case (Expected_File_Name : File_Name_Type; |