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/lib | |
| 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/lib')
| -rw-r--r-- | gdb/testsuite/lib/gdb.exp | 2 |
1 files changed, 2 insertions, 0 deletions
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 |