OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
From-SVN: r195666
This commit is contained in:
Jakub Jelinek 2013-02-01 16:01:02 +01:00 committed by Jakub Jelinek
parent 25ef6b0e4f
commit c050cbe9b4
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -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.

4
gcc/testsuite/lib/gcc-dg.exp
View File

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