mirror of
git://gcc.gnu.org/git/gcc.git
synced 2025-03-12 12:27:24 +08:00
* gcc.c (delete_if_ordinary): Delete all versions.
From-SVN: r48450
This commit is contained in:
parent
d022094fd9
commit
f01c9bcdd8
@ -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
|
||||
|
@ -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);
|
||||
|
Loading…
Reference in New Issue
Block a user