Re: [PATCH] Caret diagnostics

[Manuel López-Ibáñez <lopezibanez at gmail dot com>]

In 11 April 2012 18:40, H.J. Lu <hjl.tools@gmail.com> wrote:
>
> It breaks library tests:
>
> ERROR: tcl error sourcing
> ../../../../src-trunk/boehm-gc/testsuite/../../gcc/testsuite/lib/prune.exp.
> ERROR: tcl error sourcing
> ../../../../src-trunk/libgomp/testsuite/../../gcc/testsuite/lib/prune.exp.
> ERROR: tcl error sourcing
> ../../../../src-trunk/libitm/testsuite/../../gcc/testsuite/lib/prune.exp.
>
> RROR: tcl error sourcing
> ../../../../src-trunk/libitm/testsuite/../../gcc/testsuite/lib/prune.exp.
> can't read "TEST_ALWAYS_FLAGS": no such variable
> ? ?while executing
> "set TEST_ALWAYS_FLAGS "-fno-diagnostics-show-caret $TEST_ALWAYS_FLAGS""
> ? ?(file "../../../../src-trunk/libitm/testsuite/../../gcc/testsuite/lib/prune.exp"
> line 20)
> ? ?invoked from within
> "source ../../../../src-trunk/libitm/testsuite/../../gcc/testsuite/lib/prune.exp"
> ? ?("uplevel" body line 1)
> ? ?invoked from within
> "uplevel #0 source
> ../../../../src-trunk/libitm/testsuite/../../gcc/testsuite/lib/prune.exp"
> ? ?invoked from within
> "catch "uplevel #0 source $file""
> make[8]: *** [check-DEJAGNU] Error 1

contrib/compare_tests does not seem to detect this :-(

So how can I say in tcl "if not defined VAR then set VAR ""?

Cheers,

Manuel.