/[dejagnu]/dejagnu/config/i960.exp
ViewVC logotype

Diff of /dejagnu/config/i960.exp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by bje, Thu Aug 7 03:42:43 2003 UTC revision 1.5 by bje, Thu Aug 7 03:58:36 2003 UTC
# Line 34  proc ${board}_init { dest } { Line 34  proc ${board}_init { dest } {
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}" {
# Line 129  proc i960_ld { dest prog } { Line 129  proc i960_ld { dest prog } {
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]"
# Line 185  proc i960_wait { dest timeout } { Line 185  proc i960_wait { dest timeout } {
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" ""]

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26