diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-08-01 12:28:52 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-08-01 12:28:52 +0200 |
| commit | b330e3c8662dc2a2214d96f15c66ae7b42dfdecd (patch) | |
| tree | d53a7b3cb0229c34ad3390076ccda3352e4be6ac /gcc/ada/prj.adb | |
| parent | 24de083ff5a0b613356e4ad95c501fe9a9f795e1 (diff) | |
| download | gcc-b330e3c8662dc2a2214d96f15c66ae7b42dfdecd.zip gcc-b330e3c8662dc2a2214d96f15c66ae7b42dfdecd.tar.gz gcc-b330e3c8662dc2a2214d96f15c66ae7b42dfdecd.tar.bz2 | |
[multiple changes]
2014-08-01 Robert Dewar <dewar@adacore.com>
* sem_aggr.adb, sem_ch3.adb, sem_ch5.adb, sem_util.adb,
sem_res.adb: Minor reformatting.
2014-08-01 Vincent Celier <celier@adacore.com>
* make.adb (Initialize): Set Keep_Temporary_Files to True when
-dn is specified.
* makeusg.adb: Add line for new switch --keep-temp-files.
* makeutl.ads (Keep_Temp_Files_Option): New constant String.
* opt.ads (Keep_Temporary_Files): Document that it is also used
by gnatmake and gprbuild.
* switch-m.adb: Recognize new switch --keep-temp-files.
From-SVN: r213451
Diffstat (limited to 'gcc/ada/prj.adb')
| -rw-r--r-- | gcc/ada/prj.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/prj.adb b/gcc/ada/prj.adb index 6699c4f..3c4d115 100644 --- a/gcc/ada/prj.adb +++ b/gcc/ada/prj.adb @@ -23,7 +23,6 @@ -- -- ------------------------------------------------------------------------------ -with Debug; with Opt; with Osint; use Osint; with Output; use Output; @@ -187,7 +186,7 @@ package body Prj is pragma Warnings (Off, Dont_Care); begin - if not Debug.Debug_Flag_N then + if not Opt.Keep_Temporary_Files then if Current_Verbosity = High then Write_Line ("Removing temp file: " & Get_Name_String (Path)); end if; @@ -217,7 +216,7 @@ package body Prj is Proj : Project_List; begin - if not Debug.Debug_Flag_N then + if not Opt.Keep_Temporary_Files then if Project_Tree /= null then Proj := Project_Tree.Projects; while Proj /= null loop @@ -254,7 +253,7 @@ package body Prj is Path : Path_Name_Type; begin - if not Debug.Debug_Flag_N then + if not Opt.Keep_Temporary_Files then for Index in 1 .. Temp_Files_Table.Last (Shared.Private_Part.Temp_Files) loop |