Skip to content

R
riscv-gcc-1
Commit 1c9e0120 by Vincent Celier Committed by Arnaud Charlet
Options

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

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
parent d4deddd7
Showing with 5 additions and 2 deletions
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;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment