Don't look at timeout unless it exists.

This commit is contained in:
Bob Manson 1997-05-23 06:10:08 +00:00
parent c55809ce2d
commit d8b63305a2

View file

@ -856,12 +856,18 @@ proc send_gdb { string } {
proc gdb_expect { args } {
upvar timeout timeout
if [target_info exists gdb,timeout] {
set oldt $timeout
if [info exists 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 [target_info exists gdb,timeout] {
if [info exists oldt] {
set timeout oldt
} else {
unset timeout
}
}
if {$code == 1} {