mkstemps.c (mkstemps): On VMS, open temp file with option that causes it to be deleted when closed.

	* libiberty/mkstemps.c (mkstemps): On VMS, open temp file with option
	that causes it to be deleted when closed.
	* gcc/gcc.c (delete_if_ordinary): Backout previous change.

From-SVN: r48872

gcc/ChangeLog

-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.

gcc/gcc.c

@@ -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);

libiberty/ChangeLog

+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.

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;