diff options
Diffstat (limited to 'gdb/testsuite')
| -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 |