diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-08 10:45:13 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-08 10:45:13 +0000 |
commit | 316b941e5bf55ade4db5ad4c2f6a6af6a60badef (patch) | |
tree | 25ce9c2d6b982544eebe051cf9cd89a71030d8ba /gcc/ada/prj.ads | |
parent | f3e4db9624752c660db45f471b448da9e4789c8b (diff) | |
download | gcc-316b941e5bf55ade4db5ad4c2f6a6af6a60badef.tar.gz |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165160 138bc75d-0d04-0410-961f-82ee72b054a4
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 4fc6c93a669..84c825ff661 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 |