diff options
| author | Vincent Celier <celier@adacore.com> | 2005-11-15 15:05:07 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-11-15 15:05:07 +0100 |
| commit | 1c9e0120eb6386e36415a0e3c9f6d962f09879a2 (patch) | |
| tree | 287cd3d04c826a6a6368080b7dd7cad3885db27f /gcc/ada/tempdir.adb | |
| parent | d4deddd7e92a3b559af36a8f832460ff00cc19fc (diff) | |
| download | gcc-1c9e0120eb6386e36415a0e3c9f6d962f09879a2.tar.gz | |
tempdir.adb (Tempdir): Do not use environment variable TMPDIR if it designates a non existent directory.
2005-11-14 Vincent Celier <celier@adacore.com>
* tempdir.adb (Tempdir): Do not use environment variable TMPDIR if it
designates a non existent directory.
From-SVN: r107012
Diffstat (limited to 'gcc/ada/tempdir.adb')
| -rw-r--r-- | gcc/ada/tempdir.adb | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/gcc/ada/tempdir.adb b/gcc/ada/tempdir.adb index 7daea87e5c6..a0b8adacac7 100644 --- a/gcc/ada/tempdir.adb +++ b/gcc/ada/tempdir.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2003 Free Software Foundation, Inc. -- +-- Copyright (C) 2003-2005 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- -- @@ -114,7 +114,10 @@ begin Dir : String_Access := Getenv (Tmpdir); begin - if Dir'Length > 0 and then Is_Absolute_Path (Dir.all) then + if Dir'Length > 0 and then + Is_Absolute_Path (Dir.all) and then + Is_Directory (Dir.all) + then Temp_Dir := new String'(Normalize_Pathname (Dir.all)); end if; |