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/make.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/make.adb')
-rw-r--r-- | gcc/ada/make.adb | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/gcc/ada/make.adb b/gcc/ada/make.adb index 3ae8f27..e4dc750 100644 --- a/gcc/ada/make.adb +++ b/gcc/ada/make.adb @@ -3788,7 +3788,7 @@ package body Make is -- Delete any temporary configuration pragma file - if not Debug.Debug_Flag_N then + if not Keep_Temporary_Files then Delete_Temp_Config_Files (Project_Tree); end if; end Compile_Sources; @@ -3966,7 +3966,7 @@ package body Make is -- created when using a project file. if Main_Project = No_Project - or else Debug.Debug_Flag_N + or else Opt.Keep_Temporary_Files or else Args (J)'Length < 8 or else Args (J) (Args (J)'First .. Args (J)'First + 6) /= "-gnatem" @@ -3977,7 +3977,7 @@ package body Make is -- Reset Temporary_Config_File to False so that the eventual -- other -gnatec switches will be displayed. - if (not Debug.Debug_Flag_N) + if (not Opt.Keep_Temporary_Files) and then Temporary_Config_File and then Args (J)'Length > 7 and then Args (J) (Args (J)'First .. Args (J)'First + 6) @@ -3988,7 +3988,7 @@ package body Make is -- Do not display the -F=mapping_file switch for gnatbind -- if -dn is not specified. - elsif Debug.Debug_Flag_N + elsif Opt.Keep_Temporary_Files or else Args (J)'Length < 4 or else Args (J) (Args (J)'First .. Args (J)'First + 2) /= "-F=" @@ -6650,6 +6650,9 @@ package body Make is Project_Of_Current_Object_Directory := No_Project; + if Debug.Debug_Flag_N then + Opt.Keep_Temporary_Files := True; + end if; end Initialize; ---------------------------- |