diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-29 15:25:01 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-29 15:25:01 +0000 |
| commit | 57f5136f0b2c12a55ab012c716658228eb45bbff (patch) | |
| tree | 22b5e0a70a62cb26894ab653d474436c22a1b492 /gcc/ada/prj-part.adb | |
| parent | 8c7abb6c2c3326475405fddb4a36ffc39914289b (diff) | |
| download | gcc-57f5136f0b2c12a55ab012c716658228eb45bbff.tar.gz | |
2009-04-29 Vincent Celier <celier@adacore.com>
* prj-part.adb: Minor comment update
2009-04-29 Ed Schonberg <schonberg@adacore.com>
* sem_aggr.adb (Resolve_Record_Aggregate): handle properly
box-initialized records with discriminated subcomponents that are
constrained by discriminants of enclosing components. New subsidiary
procedures Add_Discriminant_Values, Propagate_Discriminants.
2009-04-29 Arnaud Charlet <charlet@adacore.com>
* g-socket.adb: Code clean up.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146976 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/prj-part.adb')
| -rw-r--r-- | gcc/ada/prj-part.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/prj-part.adb b/gcc/ada/prj-part.adb index 0608e028d20..871517cba66 100644 --- a/gcc/ada/prj-part.adb +++ b/gcc/ada/prj-part.adb @@ -1101,10 +1101,10 @@ package body Prj.Part is begin -- Loop through extending projects to find the ultimate -- extending project, that is the one that is not - -- extended. But don't attempt to find an extending - -- project if the initial project is an abstract project, - -- as it may have been extended several time, so it - -- cannot have a single extending project. + -- extended. For an abstract project, as it can be + -- extended several times, there is no extending project + -- registered, so the loop does not execute and the + -- resulting project is the abstract project. while Extending_Project_Of (Decl, In_Tree) /= Empty_Node |