diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-29 17:25:01 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-29 17:25:01 +0200 |
| commit | 107b023cee9d3ce4928b2767fe69a1e316c20d1c (patch) | |
| tree | 22b5e0a70a62cb26894ab653d474436c22a1b492 /gcc/ada/prj-part.adb | |
| parent | e50e30817e79d18bb9e662d70940cc79dbbe9e15 (diff) | |
| download | gcc-107b023cee9d3ce4928b2767fe69a1e316c20d1c.zip gcc-107b023cee9d3ce4928b2767fe69a1e316c20d1c.tar.gz gcc-107b023cee9d3ce4928b2767fe69a1e316c20d1c.tar.bz2 | |
[multiple changes]
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.
From-SVN: r146976
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 0608e02..871517c 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 |