* lib/gcc-dg.exp (restore-target-env-var): Avoid using lreverse.

From-SVN: r195666

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index cbc7cb18914141a699ef85a8cc4456ef72f0c4e0..0c01f6894fba56b89b2534b571a818c300dc3fe9 100644 (file)
--- 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 b4d50cd5c0afd0e76d5a1691b98479874fa64edc..3a612a55f8a78bcde32fa7f129fd20530ac8baed 100644 (file)
--- 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]