From: Jakub Jelinek <jakub@redhat.com>
Date: Fri, 1 Feb 2013 15:01:02 +0000 (+0100)
Subject: * lib/gcc-dg.exp (restore-target-env-var): Avoid using lreverse.
X-Git-Tag: releases/gcc-4.8.0~670
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=c050cbe9b41307e5586e9c28001d5b15c2a16327;p=thirdparty%2Fgcc.git

* 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 cbc7cb189141..0c01f6894fba 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 b4d50cd5c0af..3a612a55f8a7 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]