From 758c54957d709bdd82b16fa5ce75040abd27daac Mon Sep 17 00:00:00 2001 From: Andrew Burgess Date: Tue, 12 Apr 2016 11:04:19 +0100 Subject: [PATCH] ld/testsuite: Initialise a variable to prevent tcl errors In some cases a variable could be left uninitialised and then an attempt made to read this variable, resulting in a tcl error. This commit initialises the variable in all cases. ld/ChangeLog: * testsuite/lib/ld-lib.exp (run_dump_test): Initialise check_ld(terminal). --- ld/ChangeLog | 5 +++++ ld/testsuite/lib/ld-lib.exp | 1 + 2 files changed, 6 insertions(+) diff --git a/ld/ChangeLog b/ld/ChangeLog index 88291badb76..f7663297f2d 100644 --- a/ld/ChangeLog +++ b/ld/ChangeLog @@ -1,3 +1,8 @@ +2016-04-13 Andrew Burgess + + * testsuite/lib/ld-lib.exp (run_dump_test): Initialise + check_ld(terminal). + 2016-04-13 H.J. Lu PR ld/19774 diff --git a/ld/testsuite/lib/ld-lib.exp b/ld/testsuite/lib/ld-lib.exp index ce446fd2528..52b63ee6a8c 100644 --- a/ld/testsuite/lib/ld-lib.exp +++ b/ld/testsuite/lib/ld-lib.exp @@ -875,6 +875,7 @@ proc run_dump_test { name {extra_options {}} } { } set check_ld(source) "" + set check_ld(terminal) 0 if { $opts(error) != "" \ || $opts(warning) != "" \ || $opts(error_output) != "" \ -- 2.30.2