target-libpath.exp (set_ld_library_path_env_vars): Correct TEST_GCC_EXEC_PREFIX test...

	* lib/target-libpath.exp (set_ld_library_path_env_vars):
	Correct TEST_GCC_EXEC_PREFIX test to check existence as a tcl
	variable, not environment variable.

From-SVN: r144997

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 6d651dde37ec041656ef5b0e529a04605c6945a0..abad6bab0330e31cd3a985672bf3b1d3dd8b60b7 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2009-03-22  Hans-Peter Nilsson  <hp@axis.com>
+
+       * lib/target-libpath.exp (set_ld_library_path_env_vars):
+       Correct TEST_GCC_EXEC_PREFIX test to check existence as a tcl
+       variable, not environment variable.
+
 2009-03-21  Jason Merrill  <jason@redhat.com>
 
        PR c++/28879

diff --git a/gcc/testsuite/lib/target-libpath.exp b/gcc/testsuite/lib/target-libpath.exp
index 760f3751aa168546f1b1023ade7d6c671990d3d3..c95cba6d78481151a4f156cfac40e8c9ebe58c32 100644 (file)
--- a/gcc/testsuite/lib/target-libpath.exp
+++ b/gcc/testsuite/lib/target-libpath.exp
@@ -1,4 +1,4 @@
-# Copyright (C) 2004, 2005, 2007 Free Software Foundation, Inc.
+# Copyright (C) 2004, 2005, 2007, 2009 Free Software Foundation, Inc.
 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -69,7 +69,7 @@ proc set_ld_library_path_env_vars { } {
 
   # Set GCC_EXEC_PREFIX for the compiler under test to pick up files not in
   # the build tree from a specified location (normally the install tree).
-  if [info exists env(TEST_GCC_EXEC_PREFIX)] {
+  if [info exists TEST_GCC_EXEC_PREFIX] {
     setenv GCC_EXEC_PREFIX "$TEST_GCC_EXEC_PREFIX"
   }