diff options
-rw-r--r-- | gcc/ChangeLog | 8 | ||||
-rw-r--r-- | gcc/gcc.c | 4 | ||||
-rw-r--r-- | libiberty/ChangeLog | 5 | ||||
-rw-r--r-- | libiberty/mkstemps.c | 4 |
4 files changed, 15 insertions, 6 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 70428b1..4161461 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,10 +1,12 @@ -2002-01-15 Kazu Hirata <kazu@hxi.com> +2002-01-15 Douglas B Rupp <rupp@gnat.com> - * confiig/h8300/h8300.c (print_operand): Remove support for - unused operand characters. + * gcc.c (delete_if_ordinary): Backout previous change. 2002-01-15 Kazu Hirata <kazu@hxi.com> + * config/h8300/h8300.c (print_operand): Remove support for + unused operand characters. + * read-rtl.c: Fix formatting. * real.c: Likewise. * recog.c: Likewise. @@ -2110,9 +2110,7 @@ delete_if_ordinary (name) if (i == 'y' || i == 'Y') #endif /* DEBUG */ - /* 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 (stat (name, &st) >= 0 && S_ISREG (st.st_mode)) if (unlink (name) < 0) if (verbose_flag) perror_with_name (name); diff --git a/libiberty/ChangeLog b/libiberty/ChangeLog index fdccb59..43a2951 100644 --- a/libiberty/ChangeLog +++ b/libiberty/ChangeLog @@ -1,3 +1,8 @@ +2002-01-15 Douglas B Rupp <rupp@gnat.com> + + * mkstemps.c (mkstemps): On VMS, open temp file with option + that causes it to be deleted when closed. + 2002-01-02 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> * cp-demangle.c (long_options): Const-ify. diff --git a/libiberty/mkstemps.c b/libiberty/mkstemps.c index 8fe5784..1f6600a 100644 --- a/libiberty/mkstemps.c +++ b/libiberty/mkstemps.c @@ -121,7 +121,11 @@ mkstemps (template, suffix_len) v /= 62; XXXXXX[5] = letters[v % 62]; +#ifdef VMS + fd = open (template, O_RDWR|O_CREAT|O_EXCL, 0600, "fop=tmd"); +#else fd = open (template, O_RDWR|O_CREAT|O_EXCL, 0600); +#endif if (fd >= 0) /* The file does not exist. */ return fd; |