diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-08 12:45:13 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-08 12:45:13 +0200 |
commit | 8779dffad8f0189867d391a79c3f91baf98026c8 (patch) | |
tree | 25ce9c2d6b982544eebe051cf9cd89a71030d8ba /gcc/ada/prj.ads | |
parent | 094cefda513d464a72d77a6e892fc3c721d67dd6 (diff) | |
download | gcc-8779dffad8f0189867d391a79c3f91baf98026c8.zip gcc-8779dffad8f0189867d391a79c3f91baf98026c8.tar.gz gcc-8779dffad8f0189867d391a79c3f91baf98026c8.tar.bz2 |
[multiple changes]
2010-10-08 Thomas Quinot <quinot@adacore.com>
* xsnames.adb: Remove obsolete file.
* make.adb, sem_ch8.adb, einfo.ads: Minor reformatting.
2010-10-08 Ed Schonberg <schonberg@adacore.com>
* exp_aggr.adb: Complete previous change.
2010-10-08 Ed Schonberg <schonberg@adacore.com>
* sem_ch6.adb (Check_Return_Subtype): The subtype indication in an
extended return must match statically the return subtype of the
enclosing function if the type is an elementary type or if it is
constrained.
2010-10-08 Vincent Celier <celier@adacore.com>
* prj-nmsc.adb (Add_Source): Report all duplicate units and source file
names. Do not report the same duplicate unit several times.
* prj.ads (Source_Data): New Boolean component Duplicate_Unit,
defaulted to False, to avoid reporting the same unit as duplicate
several times.
From-SVN: r165160
Diffstat (limited to 'gcc/ada/prj.ads')
-rw-r--r-- | gcc/ada/prj.ads | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/prj.ads b/gcc/ada/prj.ads index 4fc6c93..84c825f 100644 --- a/gcc/ada/prj.ads +++ b/gcc/ada/prj.ads @@ -765,6 +765,9 @@ package Prj is Naming_Exception : Boolean := False; -- True if the source has an exceptional name + Duplicate_Unit : Boolean := False; + -- True when a duplicate unit has been reported for this source + Next_In_Lang : Source_Id := No_Source; -- Link to another source of the same language in the same project end record; @@ -799,6 +802,7 @@ package Prj is Switches_Path => No_Path, Switches_TS => Empty_Time_Stamp, Naming_Exception => False, + Duplicate_Unit => False, Next_In_Lang => No_Source); package Source_Paths_Htable is new Simple_HTable |