diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-10-13 14:54:42 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-10-13 14:54:42 +0200 |
| commit | 5dc203d228f3bafc063278e4b6ef7954300b3908 (patch) | |
| tree | fa92f8d930db55b708a519f95013bf6c71ed1f8c /gcc/ada/gnatcmd.adb | |
| parent | 3396fcc095e2ee8f247af414aeb448c15bf88f28 (diff) | |
| download | gcc-5dc203d228f3bafc063278e4b6ef7954300b3908.zip gcc-5dc203d228f3bafc063278e4b6ef7954300b3908.tar.gz gcc-5dc203d228f3bafc063278e4b6ef7954300b3908.tar.bz2 | |
[multiple changes]
2016-10-13 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch10.adb (Entity_Needs_Body): A generic
subprogram renaming needs a body if the renamed unit is declared
outside the current compilation unit.
2016-10-13 Hristian Kirtchev <kirtchev@adacore.com>
* sinfo.ads, sem_ch12.adb, sem.adb, expander.adb, sem_res.ads,
sem_ch4.adb, sem_ch8.adb, s-memory.adb: Minor reformatting.
2016-10-13 Vincent Celier <celier@adacore.com>
* gnatcmd.adb: Delete all temporary files when invoked as gnat
list -V -P ...
2016-10-13 Ed Falis <falis@adacore.com>
* impunit.adb: add i-vxinco.ads.
* s-interr-vxworks.adb: add hook for user interrupt connection routine.
From-SVN: r241112
Diffstat (limited to 'gcc/ada/gnatcmd.adb')
| -rw-r--r-- | gcc/ada/gnatcmd.adb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb index ce880ca..9a04e78 100644 --- a/gcc/ada/gnatcmd.adb +++ b/gcc/ada/gnatcmd.adb @@ -356,6 +356,7 @@ procedure GNATCmd is if Add_Sources then Tempdir.Create_Temp_File (FD, Temp_File_Name); + Record_Temp_File (Project_Tree.Shared, Temp_File_Name); Last_Switches.Increment_Last; Last_Switches.Table (Last_Switches.Last) := new String'("-files=" & Get_Name_String (Temp_File_Name)); @@ -1214,6 +1215,11 @@ begin end if; My_Exit_Status := Exit_Status (Spawn (Exec_Path.all, The_Args)); + + if not Keep_Temporary_Files then + Delete_All_Temp_Files (Project_Tree.Shared); + end if; + Set_Exit_Status (My_Exit_Status); end; end; |