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

Diff of /dejagnu/config/base68k.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 92  proc base68k_ld { dest prog } { Line 92  proc base68k_ld { dest prog } {
92      }      }
93    
94      set got_p 0      set got_p 0
95      for { set tries 0; } { (! $got_p) && $tries < 5 } { incr tries } {      for { set tries 0 } { (! $got_p) && $tries < 5 } { incr tries } {
96          remote_send $dest "\r\n\r\n"          remote_send $dest "\r\n\r\n"
97          remote_expect $dest 5 {          remote_expect $dest 5 {
98              -re "${shell_prompt}$" {              -re "${shell_prompt}$" {
# Line 279  proc base68k_load { dest prog args } { Line 279  proc base68k_load { dest prog args } {
279      set shell_prompt [board_info $dest shell_prompt]      set shell_prompt [board_info $dest shell_prompt]
280    
281      if { [llength $args] > 0 } {      if { [llength $args] > 0 } {
282          for { set x 0; } { $x < [llength $args] } { incr x ; } {          for { set x 0 } { $x < [llength $args] } { incr x } {
283              if { [lindex $args $x] != "" } {              if { [lindex $args $x] != "" } {
284                  verbose -log "Cannot pass parameters or input file to this target"                  verbose -log "Cannot pass parameters or input file to this target"
285                  return [list "unsupported" ""]                  return [list "unsupported" ""]

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