From: Douglas B Rupp <rupp@gnat.com>
Date: Tue, 1 Jan 2002 21:48:58 +0000 (-0500)
Subject: * gcc.c (delete_if_ordinary): Delete all versions.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;ds=sidebyside;h=f01c9bcdd8644f1272ac18f793d04cafde1e7860;p=gcc.git

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

From-SVN: r48450
---

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 2f809926801..f7bb480a769 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,7 @@
+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
diff --git a/gcc/gcc.c b/gcc/gcc.c
index 5094c3bfe0c..25cbeb54821 100644
--- a/gcc/gcc.c
+++ b/gcc/gcc.c
@@ -1,6 +1,6 @@
 /* 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);