From 17b59a7407983ae0c7b97d3d35266f5d08ba5bc7 Mon Sep 17 00:00:00 2001 From: Bob Manson Date: Tue, 17 Jun 1997 20:11:04 +0000 Subject: [PATCH] * lib/gdb.exp(gdb_expect): Declare errorInfo and errorCode as global variables. --- gdb/testsuite/ChangeLog | 5 +++++ gdb/testsuite/lib/gdb.exp | 2 ++ 2 files changed, 7 insertions(+) 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 -- 2.30.2