darlinghq/darling-gdb
1
0
Fork 0
mirror of https://github.com/darlinghq/darling-gdb.git synced 2024-12-14 15:50:34 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Don't look at timeout unless it exists.

Browse Source
This commit is contained in:
Bob Manson 1997-05-23 06:10:08 +00:00
parent c55809ce2d
commit d8b63305a2
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gdb/testsuite/lib/gdb.exp
View File

@ -856,12 +856,18 @@ proc send_gdb { string } {
proc gdb_expect { args } { proc gdb_expect { args } {
upvar timeout timeout upvar timeout timeout
if [target_info exists gdb,timeout] { if [target_info exists gdb,timeout] {
set oldt $timeout if [info exists timeout] {
set oldt $timeout
}
set timeout [target_info gdb,timeout]; set timeout [target_info gdb,timeout];
} }
set code [catch {uplevel remote_expect host $args} string]; set code [catch {uplevel remote_expect host $args} string];
if [info exists oldt] { if [target_info exists gdb,timeout] {
set timeout oldt if [info exists oldt] {
set timeout oldt
} else {
unset timeout
}
} }
if {$code == 1} { if {$code == 1} {