diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-21 17:24:03 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-21 17:24:03 +0200 |
| commit | 602a7ec025a239f80d9857fc4c80dfd8b961910e (patch) | |
| tree | 2f26229f8bb14959089bd4e16133eda60ff5d845 /gcc/ada/prj.ads | |
| parent | 06f2efd7ed334399dcbab0ebe6980c42cd21acaf (diff) | |
| download | gcc-602a7ec025a239f80d9857fc4c80dfd8b961910e.zip gcc-602a7ec025a239f80d9857fc4c80dfd8b961910e.tar.gz gcc-602a7ec025a239f80d9857fc4c80dfd8b961910e.tar.bz2 | |
[multiple changes]
2010-06-21 Robert Dewar <dewar@adacore.com>
* exp_ch4.adb (Expand_N_Conditional_Expression): Fold if condition
known at compile time.
2010-06-21 Gary Dismukes <dismukes@adacore.com>
* atree.adb: Fix comment typo.
2010-06-21 Ed Schonberg <schonberg@adacore.com>
* sem_eval.adb (Test_Ambiguous_Operator): New procedure to check
whether a universal arithmetic expression in a conversion, which is
rewritten from a function call with an expanded name, is ambiguous.
2010-06-21 Vincent Celier <celier@adacore.com>
* prj-nmsc.adb (Name_Location): New Boolean component Listed, to record
source files in specified list of sources.
(Check_Package_Naming): Remove out parameters Bodies and Specs, as they
are never used.
(Add_Source): Set the Location of the new source
(Process_Exceptions_File_Based): Call Add_Source with the Location
(Get_Sources_From_File): If an exception is found, set its Listed to
True
(Find_Sources): When Source_Files is specified, if an exception is
found, set its Listed to True. Remove any exception that is not in a
specified list of sources.
* prj.ads (Source_Data): New component Location
2010-06-21 Vincent Celier <celier@adacore.com>
* gnatbind.adb (Closure_Sources): Global table, moved from block.
From-SVN: r161088
Diffstat (limited to 'gcc/ada/prj.ads')
| -rw-r--r-- | gcc/ada/prj.ads | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/prj.ads b/gcc/ada/prj.ads index 4341450..cba9c6f 100644 --- a/gcc/ada/prj.ads +++ b/gcc/ada/prj.ads @@ -667,6 +667,10 @@ package Prj is Project : Project_Id := No_Project; -- Project of the source + Location : Source_Ptr := No_Location; + -- Location in the project file of the declaration of the source in + -- package Naming. + Source_Dir_Rank : Natural := 0; -- The rank of the source directory in list declared with attribute -- Source_Dirs. Two source files with the same name cannot appears in @@ -768,6 +772,7 @@ package Prj is No_Source_Data : constant Source_Data := (Project => No_Project, + Location => No_Location, Source_Dir_Rank => 0, Language => No_Language_Index, In_Interfaces => True, |