diff options
Diffstat (limited to 'gdb/testsuite/lib/gdb.exp')
| -rw-r--r-- | gdb/testsuite/lib/gdb.exp | 8 |
1 files changed, 8 insertions, 0 deletions
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 |