diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-12-23 09:34:21 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-12-23 09:34:21 +0000 |
| commit | 43c5696dfa156ed24dba1fac47723c3bd80bf4cd (patch) | |
| tree | 236db547a2dabd88549af874f9b92435ac0f9235 /gcc/ada/prj.adb | |
| parent | a2b6106f8a25a6ed55ca8ac8c557b69540fcf97a (diff) | |
| download | gcc-43c5696dfa156ed24dba1fac47723c3bd80bf4cd.tar.gz | |
2011-12-23 Pascal Obry <obry@adacore.com>
* gnatcmd.adb, prj.adb, prj-nmsc.adb: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@182655 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/prj.adb')
| -rw-r--r-- | gcc/ada/prj.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/prj.adb b/gcc/ada/prj.adb index 97b23bd413e..c480cf33a92 100644 --- a/gcc/ada/prj.adb +++ b/gcc/ada/prj.adb @@ -523,6 +523,7 @@ package body Prj is Include_Aggregated : Boolean := True; Imported_First : Boolean := False) is + use Project_Boolean_Htable; Seen : Project_Boolean_Htable.Instance := Project_Boolean_Htable.Nil; @@ -544,6 +545,7 @@ package body Prj is begin if not Get (Seen, Project) then + -- Even if a project is aggregated multiple times, we will only -- return it once. |