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

From-SVN: r195666

* lib/gcc-dg.exp (restore-target-env-var): Avoid using lreverse.
From-SVN: r195666
c050cbe9 · Jakub Jelinek · Jakub Jelinek · 25ef6b0e · c050cbe9 · c050cbe9
Commit c050cbe9 authored Feb 01, 2013 by Jakub Jelinek Committed by Jakub Jelinek Feb 01, 2013
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 1 deletions

gcc/testsuite/ChangeLog
+4 -0

gcc/testsuite/lib/gcc-dg.exp
+3 -1

No files found.
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
+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.

--- 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]