diff options
| author | Bob Manson <manson@cygnus> | 1997-05-23 06:05:12 +0000 |
|---|---|---|
| committer | Bob Manson <manson@cygnus> | 1997-05-23 06:05:12 +0000 |
| commit | c55809ce2dc022c3a8638aaa0f0f983fd4ce6cdf (patch) | |
| tree | b23e980dac2159cb23bb15f60acced58846ad46f /gdb | |
| parent | de8ea54f90ed908174cb53daef826bb43bc1a067 (diff) | |
| download | gdb-c55809ce2dc022c3a8638aaa0f0f983fd4ce6cdf.zip gdb-c55809ce2dc022c3a8638aaa0f0f983fd4ce6cdf.tar.gz gdb-c55809ce2dc022c3a8638aaa0f0f983fd4ce6cdf.tar.bz2 | |
* lib/gdb.exp(gdb_expect): Look for gdb,timeout target
feature.
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 3 | ||||
| -rw-r--r-- | gdb/testsuite/lib/gdb.exp | 8 |
2 files changed, 11 insertions, 0 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index d520680..63c0fc7 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,8 @@ Thu May 22 18:51:32 1997 Bob Manson <manson@charmed.cygnus.com> + * lib/gdb.exp(gdb_expect): Look for gdb,timeout target + feature. + * config/proelf.exp: New entry. Wed May 21 21:23:16 1997 Bob Manson <manson@charmed.cygnus.com> diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index c29ce81..b8fe400 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -854,7 +854,15 @@ proc send_gdb { string } { # proc gdb_expect { args } { + upvar timeout timeout + if [target_info exists gdb,timeout] { + set oldt $timeout + set timeout [target_info gdb,timeout]; + } set code [catch {uplevel remote_expect host $args} string]; + if [info exists oldt] { + set timeout oldt + } if {$code == 1} { return -code error -errorinfo $errorInfo -errorcode $errorCode $string |