From: Andrew Burgess <andrew.burgess@embecosm.com>
Date: Tue, 12 Apr 2016 10:04:19 +0000 (+0100)
Subject: ld/testsuite: Initialise a variable to prevent tcl errors
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=758c54957d709bdd82b16fa5ce75040abd27daac;p=binutils-gdb.git

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).
---

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  <andrew.burgess@embecosm.com>
+
+	* testsuite/lib/ld-lib.exp (run_dump_test): Initialise
+	check_ld(terminal).
+
 2016-04-13  H.J. Lu  <hongjiu.lu@intel.com>
 
 	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) != "" \