diff options
| author | Tamar Christina <tamar.christina@arm.com> | 2020-07-17 13:12:23 +0100 |
|---|---|---|
| committer | Tamar Christina <tamar.christina@arm.com> | 2020-07-17 13:12:23 +0100 |
| commit | e410cbff5d5a408b7c64a0c426951afc2a24df93 (patch) | |
| tree | 0f3314757d7259202e0aaeda99d61af85e3847ef /gcc | |
| parent | 34a6c43487caf3a2a0ec9c7c79c526d116abc8b9 (diff) | |
| download | gcc-e410cbff5d5a408b7c64a0c426951afc2a24df93.zip gcc-e410cbff5d5a408b7c64a0c426951afc2a24df93.tar.gz gcc-e410cbff5d5a408b7c64a0c426951afc2a24df93.tar.bz2 | |
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.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/lib/gcc-dg.exp | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/testsuite/lib/gcc-dg.exp b/gcc/testsuite/lib/gcc-dg.exp index 27cc7c1..45d9702 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-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 { |