diff options
Diffstat (limited to 'gcc/ada/tempdir.adb')
| -rw-r--r-- | gcc/ada/tempdir.adb | 24 |
1 files changed, 4 insertions, 20 deletions
diff --git a/gcc/ada/tempdir.adb b/gcc/ada/tempdir.adb index 7da1ef2..4936c26 100644 --- a/gcc/ada/tempdir.adb +++ b/gcc/ada/tempdir.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2003-2013, Free Software Foundation, Inc. -- +-- Copyright (C) 2003-2014, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -25,7 +25,6 @@ with GNAT.Directory_Operations; use GNAT.Directory_Operations; -with Hostparm; use Hostparm; with Opt; use Opt; with Output; use Output; @@ -33,9 +32,8 @@ package body Tempdir is Tmpdir_Needs_To_Be_Displayed : Boolean := True; - Tmpdir : constant String := "TMPDIR"; - Gnutmpdir : constant String := "GNUTMPDIR"; - Temp_Dir : String_Access := new String'(""); + Tmpdir : constant String := "TMPDIR"; + Temp_Dir : String_Access := new String'(""); ---------------------- -- Create_Temp_File -- @@ -118,21 +116,7 @@ package body Tempdir is begin if Status then - - -- On VMS, if GNUTMPDIR is defined, use it - - if OpenVMS then - Dir := Getenv (Gnutmpdir); - - -- Otherwise, if GNUTMPDIR is not defined, try TMPDIR - - if Dir'Length = 0 then - Dir := Getenv (Tmpdir); - end if; - - else - Dir := Getenv (Tmpdir); - end if; + Dir := Getenv (Tmpdir); end if; Free (Temp_Dir); |