* lib/gdb.exp(gdb_expect): Declare errorInfo and errorCode
authorBob Manson <manson@cygnus>
Tue, 17 Jun 1997 20:11:04 +0000 (20:11 +0000)
committerBob Manson <manson@cygnus>
Tue, 17 Jun 1997 20:11:04 +0000 (20:11 +0000)
as global variables.

gdb/testsuite/ChangeLog
gdb/testsuite/lib/gdb.exp

index e4d2dfabca346f16277cf9ab0b777425f9561253..09c26a324eeb216222256cd8231cdeb248e22315 100644 (file)
@@ -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
index 1c828bff5bc337d11714ba0825a3159ec1ace48e..385695fd38a0646b15e9fd619c390b19ffed8da4 100644 (file)
@@ -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