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} {