From: Bob Manson 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 + + * lib/gdb.exp(gdb_expect): Declare errorInfo and errorCode + as global variables. + Sat Jun 14 09:23:26 1997 Bob Manson * 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