diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-02-06 11:05:12 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-02-06 11:05:12 +0100 |
| commit | 3860d46902591cda6423d375dd44975dec8bc6ea (patch) | |
| tree | ba6ad80f65710c956e813fc408176f8b4f30f087 /gcc/ada/clean.adb | |
| parent | c4e1d59df2492f54adde30ca9bd541d1787695dd (diff) | |
| download | gcc-3860d46902591cda6423d375dd44975dec8bc6ea.zip gcc-3860d46902591cda6423d375dd44975dec8bc6ea.tar.gz gcc-3860d46902591cda6423d375dd44975dec8bc6ea.tar.bz2 | |
[multiple changes]
2013-02-06 Robert Dewar <dewar@adacore.com>
* exp_prag.adb, sem_ch3.adb, exp_attr.adb, sem_prag.adb, sem_ch6.adb,
exp_intr.adb, exp_dist.adb, sem_ch13.adb: Internal clean up for
N_Pragma nodes.
2013-02-06 Robert Dewar <dewar@adacore.com>
* gnat_rm.texi: Minor text updates for pragma Warning.
2013-02-06 Geert Bosch <bosch@adacore.com>
* s-multip.adb (Number_Of_CPUs): Short-circuit in case of
CPU'Last = 1.
2013-02-06 Vincent Celier <celier@adacore.com>
* clean.adb (Delete): On VMS use host notation to delete all files.
From-SVN: r195788
Diffstat (limited to 'gcc/ada/clean.adb')
| -rw-r--r-- | gcc/ada/clean.adb | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/gcc/ada/clean.adb b/gcc/ada/clean.adb index 560ceb7..e2d2446 100644 --- a/gcc/ada/clean.adb +++ b/gcc/ada/clean.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2003-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 2003-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -1253,7 +1253,20 @@ package body Clean is -- On VMS, we have to delete all versions of the file if OpenVMS_On_Target then - Delete_File (Full_Name (1 .. Last) & ";*", Success); + declare + Host_Full_Name : constant String_Access := + To_Host_File_Spec (Full_Name (1 .. Last)); + begin + if Host_Full_Name = null + or else Host_Full_Name'Length = 0 + then + Success := False; + + else + Delete_File + (Host_Full_Name.all & ";*", Success); + end if; + end; -- Otherwise just delete the specified file |