From: Bob Manson <manson@cygnus>
Date: Tue, 17 Jun 1997 20:11:04 +0000 (+0000)
Subject: 	* lib/gdb.exp(gdb_expect): Declare errorInfo and errorCode
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=17b59a7407983ae0c7b97d3d35266f5d08ba5bc7;p=binutils-gdb.git

	* lib/gdb.exp(gdb_expect): Declare errorInfo and errorCode
	as global variables.
---

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index e4d2dfabca3..09c26a324ee 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+Tue Jun 17 13:10:10 1997  Bob Manson  <manson@charmed.cygnus.com>
+
+	* lib/gdb.exp(gdb_expect): Declare errorInfo and errorCode
+	as global variables.
+
 Sat Jun 14 09:23:26 1997  Bob Manson  <manson@charmed.cygnus.com>
 
 	* lib/gdb.exp: Close connection to remote host if gdb doesn't
diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 1c828bff5bc..385695fd38a 100644
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -877,6 +877,8 @@ proc gdb_expect { args } {
     }
 
     if {$code == 1} {
+        global errorInfo errorCode;
+
 	return -code error -errorinfo $errorInfo -errorcode $errorCode $string
     } elseif {$code == 2} {
 	return -code return $string