From fff4b09a12332c19cc7f459e45c8a44f6e68d6f7 Mon Sep 17 00:00:00 2001 From: chefmax Date: Wed, 3 Sep 2014 07:16:30 +0000 Subject: [PATCH] gcc/testsuite/ChangeLog: 2014-09-03 Max Ostapenko * lib/gcc-dg.exp (set-target-env-var): Change env to ::env. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@214846 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/lib/gcc-dg.exp | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 51a8ca324b3c..27d3ae70face 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2014-09-03 Max Ostapenko + + * lib/gcc-dg.exp (set-target-env-var): Change env to ::env. + 2014-09-03 Tobias Burnus PR fortran/61881 diff --git a/gcc/testsuite/lib/gcc-dg.exp b/gcc/testsuite/lib/gcc-dg.exp index dfdb25710a82..a0d1e7ddde9e 100644 --- a/gcc/testsuite/lib/gcc-dg.exp +++ b/gcc/testsuite/lib/gcc-dg.exp @@ -300,8 +300,8 @@ proc set-target-env-var { } { foreach env_var $set_target_env_var { set var [lindex $env_var 0] set value [lindex $env_var 1] - if [info exists env($var)] { - lappend saved_target_env_var [list $var 1 $env($var)] + if [info exists ::env($var)] { + lappend saved_target_env_var [list $var 1 $::env($var)] } else { lappend saved_target_env_var [list $var 0] } -- 2.47.2