From a8acf832b414c9d5fbcc67f7d60c48fefec0d681 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 29 Jan 2013 15:13:37 +0100 Subject: [multiple changes] 2013-01-29 Robert Dewar * gnat_rm.texi: Document all Ada 2005 and Ada 2012 pragmas as being available as implementation-defined pragmas in earlier versions of Ada. 2013-01-29 Vincent Celier * clean.adb (Delete): On VMS, delete all versions of the file. From-SVN: r195537 --- gcc/ada/clean.adb | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) (limited to 'gcc/ada/clean.adb') diff --git a/gcc/ada/clean.adb b/gcc/ada/clean.adb index 9819ff9..560ceb7 100644 --- a/gcc/ada/clean.adb +++ b/gcc/ada/clean.adb @@ -1250,7 +1250,19 @@ package body Clean is or else Is_Writable_File (Full_Name (1 .. Last)) or else Is_Symbolic_Link (Full_Name (1 .. Last)) then - Delete_File (Full_Name (1 .. Last), Success); + -- On VMS, we have to delete all versions of the file + + if OpenVMS_On_Target then + Delete_File (Full_Name (1 .. Last) & ";*", Success); + + -- Otherwise just delete the specified file + + else + Delete_File (Full_Name (1 .. Last), Success); + end if; + + -- Here if no deletion required + else Success := False; end if; -- cgit v1.1