OSDN Git Service

* make-temp-file.c (choose_tmpdir): Try standard temp logical on VMS.
authorrupp <rupp@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 29 Jul 2009 19:30:12 +0000 (19:30 +0000)
committerrupp <rupp@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 29 Jul 2009 19:30:12 +0000 (19:30 +0000)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@150221 138bc75d-0d04-0410-961f-82ee72b054a4

libiberty/ChangeLog
libiberty/make-temp-file.c

index 25c6cd1..16f541e 100644 (file)
@@ -1,3 +1,7 @@
+2009-07-29  Douglas B Rupp  <rupp@gnat.com>
+
+       * make-temp-file.c (choose_tmpdir): Try standard temp logical on VMS.
+
 2009-07-27  Douglas B Rupp  <rupp@gnat.com>
 
        * pex-unix.c (vfork): Remove VMS specific definition (get from header
index eadcf85..13e1925 100644 (file)
@@ -1,5 +1,5 @@
 /* Utility to pick a temporary filename prefix.
-   Copyright (C) 1996, 1997, 1998, 2001 Free Software Foundation, Inc.
+   Copyright (C) 1996, 1997, 1998, 2001, 2009 Free Software Foundation, Inc.
 
 This file is part of the libiberty library.
 Libiberty is free software; you can redistribute it and/or
@@ -111,9 +111,14 @@ choose_tmpdir (void)
       char *tmpdir;
       unsigned int len;
       
+#ifdef VMS
+      /* Try VMS standard temp logical.  */
+      base = try_dir ("/sys$scratch", base);
+#else
       base = try_dir (getenv ("TMPDIR"), base);
       base = try_dir (getenv ("TMP"), base);
       base = try_dir (getenv ("TEMP"), base);
+#endif
       
 #ifdef P_tmpdir
       base = try_dir (P_tmpdir, base);