OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

tempdir.adb (Tempdir): Do not use environment variable TMPDIR if it designates a non existent directory.

Browse Source 
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
This commit is contained in:
Vincent Celier 2005-11-15 15:05:07 +01:00 committed by Arnaud Charlet
parent d4deddd7e9
commit 1c9e0120eb
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/ada/tempdir.adb
View File

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