* lib/gdb.exp(gdb_expect): Declare errorInfo and errorCode

	as global variables.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index e4d2dfabca346f16277cf9ab0b777425f9561253..09c26a324eeb216222256cd8231cdeb248e22315 100644 (file)
--- 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 1c828bff5bc337d11714ba0825a3159ec1ace48e..385695fd38a0646b15e9fd619c390b19ffed8da4 100644 (file)
--- 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