Tamar Christina <tamar.christ...@arm.com> writes:
> diff --git a/gcc/testsuite/lib/gcc-dg.exp b/gcc/testsuite/lib/gcc-dg.exp
> index
> 27cc7c19625d8bff12268de16ec0c20d558394b7..ccf6b7cc70b1d4268c0b0c65f960fb42deab0d88
> 100644
> --- a/gcc/testsuite/lib/gcc-dg.exp
> +++ b/gcc/testsuite/lib/gcc-dg.exp
> @@ -477,7 +477,10 @@ proc dg-set-target-env-var { args } {
> error "dg-set-target-env-var: need two arguments"
> return
> }
> - lappend set_target_env_var [list [lindex $args 1] [lindex $args 2]]
> + set var [lindex $args 1]
> + set value [lindex $args 2]
> + verbose "dg-set-compiler-env-var $var $value" 2
“dg-set-target-env-var”
OK with that change, thanks.
Richard
> + lappend set_target_env_var [list $var $value]
> }
> proc set-target-env-var { } {
> @@ -518,6 +521,7 @@ proc dg-set-compiler-env-var { args } {
> }
> set var [lindex $args 1]
> set value [lindex $args 2]
> + verbose "dg-set-compiler-env-var $var $value" 2
> if [info exists ::env($var)] {
> lappend saved_compiler_env_var [list $var 1 $::env($var)]
> } else {
