From 822868aa564816380d7928a6ead984524abc8259 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 5 Aug 2011 16:21:03 +0200 Subject: [multiple changes] 2011-08-05 Vincent Celier * gnatcmd.adb (Get_Closure): Do not crash when it is not possible to delete or close the file when the call to gnatmake was successful. 2011-08-05 Yannick Moy * gnat1drv.adb (Adjust_Global_Switches): in ALFA mode, set Global_Discard_Names. 2011-08-05 Ed Schonberg * sinfo.ads: comments on use of entity field for aspect specifications. 2011-08-05 Ed Schonberg * sem_ch12.adb (Reset_Entity): If the entity field of the associated node is not itself an entity but a selected component, it is a rewritten parameterless call to an en enclosing synchronized operation, and this expansion will be performed again in the instance, so there is no global information to preserve. From-SVN: r177443 --- gcc/ada/gnatcmd.adb | 19 ++++++++++++++----- 1 file changed, 14 insertions(+), 5 deletions(-) (limited to 'gcc/ada/gnatcmd.adb') diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb index 0fd1d94..ec9c4e9 100644 --- a/gcc/ada/gnatcmd.adb +++ b/gcc/ada/gnatcmd.adb @@ -927,11 +927,20 @@ procedure GNATCmd is end if; end loop; - if not Keep_Temporary_Files then - Delete (File); - else - Close (File); - end if; + begin + if not Keep_Temporary_Files then + Delete (File); + else + Close (File); + end if; + + -- Don't crash if it is not possible to delete or close the file, + -- just ignore the situation. + + exception + when others => + null; + end; end if; end Get_Closure; -- cgit v1.1