diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2013-02-01 16:01:02 +0100 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2013-02-01 16:01:02 +0100 |
| commit | c050cbe9b41307e5586e9c28001d5b15c2a16327 (patch) | |
| tree | ab41c16bdf68cba5c42db9ef828967e6be054239 /gcc | |
| parent | 25ef6b0e4f29b2763430c719baaea405d09b8d41 (diff) | |
| download | gcc-c050cbe9b41307e5586e9c28001d5b15c2a16327.zip gcc-c050cbe9b41307e5586e9c28001d5b15c2a16327.tar.gz gcc-c050cbe9b41307e5586e9c28001d5b15c2a16327.tar.bz2 | |
* lib/gcc-dg.exp (restore-target-env-var): Avoid using lreverse.
From-SVN: r195666
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/lib/gcc-dg.exp | 4 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index cbc7cb1..0c01f68 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2013-02-01 Jakub Jelinek <jakub@redhat.com> + + * lib/gcc-dg.exp (restore-target-env-var): Avoid using lreverse. + 2013-02-01 David Edelsohn <dje.gcc@gmail.com> * gcc.dg/pr56023.c: XFAIL on AIX. diff --git a/gcc/testsuite/lib/gcc-dg.exp b/gcc/testsuite/lib/gcc-dg.exp index b4d50cd..3a612a5 100644 --- a/gcc/testsuite/lib/gcc-dg.exp +++ b/gcc/testsuite/lib/gcc-dg.exp @@ -305,7 +305,9 @@ proc set-target-env-var { } { proc restore-target-env-var { } { upvar 1 saved_target_env_var saved_target_env_var - foreach env_var [lreverse $saved_target_env_var] { + for { set env_vari [llength $saved_target_env_var] } { + [incr env_vari -1] >= 0 } {} { + set env_var [lindex $saved_target_env_var $env_vari] set var [lindex $env_var 0] if [lindex $env_var 1] { setenv $var [lindex $env_var 2] |