diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-03 17:27:54 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-03 17:27:54 +0200 |
| commit | fccd42a9a5dca36c6c126b0f9fa632e8dd5f30e7 (patch) | |
| tree | 691e535ad779aa9a344f9ae0bfad919b3ee6b0a3 /gcc/ada/prj.ads | |
| parent | 5e8c8e4457de992f8f7081f20aaf11778656d344 (diff) | |
| download | gcc-fccd42a9a5dca36c6c126b0f9fa632e8dd5f30e7.zip gcc-fccd42a9a5dca36c6c126b0f9fa632e8dd5f30e7.tar.gz gcc-fccd42a9a5dca36c6c126b0f9fa632e8dd5f30e7.tar.bz2 | |
[multiple changes]
2011-08-03 Yannick Moy <moy@adacore.com>
* sem_ch4.adb (Analyze_Conditional_Expression): only allow boolean
conditional expression in ALFA.
* sem_res.adb (Resolve_Conditional_Expression): mark non-boolean
expressions as not in ALFA.
2011-08-03 Robert Dewar <dewar@adacore.com>
* a-cofove.adb: Minor reformatting.
2011-08-03 Emmanuel Briot <briot@adacore.com>
* make.adb, prj.adb, prj.ads, makeutl.adb, makeutl.ads
(Insert_Project_Sources, Insert_withed_Sources_For): moved from the
gprbuild sources.
These packages are more logically placed in the Queue package, since
they manipulate the queue. It is also likely that they can be adapted
for gnatmake, thus sharing more code.
(Finish_Program, Fail_Program): moved from the gprbuild sources, so
that we could move the above.
2011-08-03 Emmanuel Briot <briot@adacore.com>
* errutil.adb (Finalize): clean up the list of error messages on exit.
Calling this subprogram multiple times will no longer show duplicate
error messages on stderr.
2011-08-03 Emmanuel Briot <briot@adacore.com>
* g-comlin.adb, g-comlin.ads (Set_Command_Line): ignore the parameter
Getopt_Switches when we have already define a command line
configuration.
From-SVN: r177286
Diffstat (limited to 'gcc/ada/prj.ads')
| -rw-r--r-- | gcc/ada/prj.ads | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/gcc/ada/prj.ads b/gcc/ada/prj.ads index f936090..c57f372 100644 --- a/gcc/ada/prj.ads +++ b/gcc/ada/prj.ads @@ -1380,11 +1380,13 @@ package Prj is Project : Project_Id; In_Imported_Only : Boolean := False; In_Extended_Only : Boolean := False; - Base_Name : File_Name_Type) return Source_Id; + Base_Name : File_Name_Type; + Index : Int := 0) return Source_Id; -- Find the first source file with the given name either in the whole tree -- (if In_Imported_Only is False) or in the projects imported or extended -- by Project otherwise. In_Extended_Only implies In_Imported_Only, and - -- will only look in Project and the projects it extends + -- will only look in Project and the projects it extends. + -- If Index is specified, this only search for a source with that index. ----------------------- -- Project_Tree_Data -- @@ -1647,6 +1649,12 @@ package Prj is -- Delete all recorded temporary files. -- Does nothing if Debug.Debug_Flag_N is set + procedure Delete_Temp_Config_Files (Project_Tree : Project_Tree_Ref); + -- Delete all temporary config files. + -- Does nothing if Debug.Debug_Flag_N is set or if Project_Tree is null. + -- This initially came from gnatmake + -- ??? Should this be combined with Delete_All_Temp_Files above + procedure Delete_Temporary_File (Shared : Shared_Project_Tree_Data_Access := null; Path : Path_Name_Type); |