50 |
|
|
51 |
gdb_stub_init $dest |
gdb_stub_init $dest |
52 |
|
|
53 |
for {set x 1;} { $x < 4 } {incr x} { |
for { set x 1 } { $x < 4 } {incr x} { |
54 |
remote_close $dest |
remote_close $dest |
55 |
sleep 2 |
sleep 2 |
56 |
set command "$GDB -nw -nx" |
set command "$GDB -nw -nx" |
394 |
} |
} |
395 |
|
|
396 |
proc gdb_stub_spawn { dest prog args } { |
proc gdb_stub_spawn { dest prog args } { |
397 |
for { set x 0; } { $x < 3 } { incr x } { |
for { set x 0 } { $x < 3 } { incr x } { |
398 |
if { [remote_ld $dest $prog] != 1 } { |
if { [remote_ld $dest $prog] != 1 } { |
399 |
return [list "fail" "remote_ld failed"] |
return [list "fail" "remote_ld failed"] |
400 |
} |
} |
475 |
global gdb_prompt |
global gdb_prompt |
476 |
set argnames { "command-line arguments" "input file" "output file" } |
set argnames { "command-line arguments" "input file" "output file" } |
477 |
|
|
478 |
for { set x 0; } { $x < [llength $args] } { incr x } { |
for { set x 0 } { $x < [llength $args] } { incr x } { |
479 |
if { [lindex $args $x] != "" } { |
if { [lindex $args $x] != "" } { |
480 |
return [list "unsupported" "no support for [lindex $argnames $x] on this target"] |
return [list "unsupported" "no support for [lindex $argnames $x] on this target"] |
481 |
} |
} |