diff options
| author | Bob Manson <manson@cygnus> | 1997-06-17 20:11:04 +0000 |
|---|---|---|
| committer | Bob Manson <manson@cygnus> | 1997-06-17 20:11:04 +0000 |
| commit | 17b59a7407983ae0c7b97d3d35266f5d08ba5bc7 (patch) | |
| tree | 0606f2b531e06bf3b6fd31e0803d766b10fb5369 /gdb/testsuite | |
| parent | 0195767eafae930f036b84cbab8bfa45a43dce53 (diff) | |
| download | gdb-17b59a7407983ae0c7b97d3d35266f5d08ba5bc7.zip gdb-17b59a7407983ae0c7b97d3d35266f5d08ba5bc7.tar.gz gdb-17b59a7407983ae0c7b97d3d35266f5d08ba5bc7.tar.bz2 | |
* lib/gdb.exp(gdb_expect): Declare errorInfo and errorCode
as global variables.
Diffstat (limited to 'gdb/testsuite')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/testsuite/lib/gdb.exp | 2 |
2 files changed, 7 insertions, 0 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index e4d2dfa..09c26a3 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 1c828bf..385695f 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 |