2003-11-22 Jakub Jelinek <jakub@redhat.com>

[binutils-gdb.git] / libiberty / mkstemps.c

diff --git a/libiberty/mkstemps.c b/libiberty/mkstemps.c
index 8fe5784f1897791dfce6c682dc8edb170027b332..1f6600a15b91946d3de4b9995483863e70eb9bbf 100644 (file)
--- 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;