* gcc.c (delete_if_ordinary): Delete all versions.

From-SVN: r48450

* gcc.c (delete_if_ordinary): Delete all versions.
From-SVN: r48450
f01c9bcd · Douglas B Rupp · Richard Kenner · d022094f · f01c9bcd · f01c9bcd
Commit f01c9bcd authored Jan 01, 2002 by Douglas B Rupp Committed by Richard Kenner Jan 01, 2002
Hide whitespace changes
Inline Side-by-side

Showing with 8 additions and 2 deletions

gcc/ChangeLog
+4 -0

gcc/gcc.c
+4 -2

No files found.
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
+2002-01-01  Douglas B Rupp  <rupp@gnat.com>
+
+	* gcc.c (delete_if_ordinary): Delete all versions.
+
 2002-01-01  Hans-Peter Nilsson  <hp@bitrange.com>

 	* config/mmix/mmix.md: Update FIXME to not mention

--- a/gcc/gcc.c
+++ b/gcc/gcc.c
 /* Compiler driver program that can handle many languages.
   Copyright (C) 1987, 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998,
-   1999, 2000, 2001 Free Software Foundation, Inc.
+   1999, 2000, 2001, 2002 Free Software Foundation, Inc.

 This file is part of GCC.

@@ -2111,7 +2111,9 @@ delete_if_ordinary (name)

  if (i == 'y' || i == 'Y')
 #endif /* DEBUG */
-    if (stat (name, &st) >= 0 && S_ISREG (st.st_mode))
+    /* On VMS, more than one version of the temporary file may have been
+       created.  This ensures we delete all of them.  */
+    while (stat (name, &st) >= 0 && S_ISREG (st.st_mode))
      if (unlink (name) < 0)
 	if (verbose_flag)
 	  perror_with_name (name);