34 |
|
|
35 |
remote_close $dest |
remote_close $dest |
36 |
if { [remote_open $dest] != "" } { |
if { [remote_open $dest] != "" } { |
37 |
for { set tries 0; } { $tries < 7 && ! $done } { incr tries } { |
for { set tries 0 } { $tries < 7 && ! $done } { incr tries } { |
38 |
remote_send $dest "\n" |
remote_send $dest "\n" |
39 |
remote_expect $dest 1 { |
remote_expect $dest 1 { |
40 |
-re "${prompt}" { |
-re "${prompt}" { |
129 |
proc i960_spawn { dest prog args } { |
proc i960_spawn { dest prog args } { |
130 |
set shell_prompt [board_info $dest shell_prompt] |
set shell_prompt [board_info $dest shell_prompt] |
131 |
|
|
132 |
for { set tries 0 ; } { $tries < 3 } { incr tries } { |
for { set tries 0 } { $tries < 3 } { incr tries } { |
133 |
set result [remote_ld $dest $prog] |
set result [remote_ld $dest $prog] |
134 |
if { $result == 0 } { |
if { $result == 0 } { |
135 |
set comm "go [board_info $dest start_addr]" |
set comm "go [board_info $dest start_addr]" |
185 |
} |
} |
186 |
|
|
187 |
proc i960_load { dest prog args } { |
proc i960_load { dest prog args } { |
188 |
for { set x 0; } { $x < 3 } { incr x; } { |
for { set x 0 } { $x < 3 } { incr x } { |
189 |
set id [eval remote_spawn \{$dest\} \{$prog\} $args] |
set id [eval remote_spawn \{$dest\} \{$prog\} $args] |
190 |
if { $id < 0 } { |
if { $id < 0 } { |
191 |
return [list "fail" ""] |
return [list "fail" ""] |