mirror of
git://gcc.gnu.org/git/gcc.git
synced 2025-04-23 01:50:33 +08:00
Testsuite: Make it easier to debug environment setting functions
This adds verbose output to dg-set-compiler-env-var and dg-set-target-env-var so you can actually see what they're setting when you add -v -v. gcc/testsuite/ChangeLog: * lib/gcc-dg.exp (dg-set-compiler-env-var, dg-set-target-env-var): Add verbose output.
This commit is contained in:
parent
34a6c43487
commit
e410cbff5d
@ -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-target-env-var $var $value" 2
|
||||
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 {
|
||||
|
Loading…
x
Reference in New Issue
Block a user