summaryrefslogtreecommitdiff
path: root/gdb/testsuite/config/slite.exp
diff options
context:
space:
mode:
Diffstat (limited to 'gdb/testsuite/config/slite.exp')
-rw-r--r--gdb/testsuite/config/slite.exp52
1 files changed, 26 insertions, 26 deletions
diff --git a/gdb/testsuite/config/slite.exp b/gdb/testsuite/config/slite.exp
index fefd799825e..2270b81a266 100644
--- a/gdb/testsuite/config/slite.exp
+++ b/gdb/testsuite/config/slite.exp
@@ -49,37 +49,37 @@ proc gdb_load { arg } {
gdb_file_cmd $arg
if [target_info exists gdb_protocol] {
- set protocol [target_info gdb_protocol];
+ set protocol [target_info gdb_protocol]
} else {
set protocol "sparclite"
}
if [target_info exists serial] {
- set targetname [target_info serial];
- set command "target $protocol [target_info serial]\n";
+ set targetname [target_info serial]
+ set command "target $protocol [target_info serial]\n"
} else {
if ![target_info exists netport] {
- perror "Need either netport or gdb_serial entry for [target_info name].";
+ perror "Need either netport or gdb_serial entry for [target_info name]."
return -1
}
- set targetname [target_info netport];
- set command "target $protocol udp [target_info netport]\n";
+ set targetname [target_info netport]
+ set command "target $protocol udp [target_info netport]\n"
}
set timeout 60
verbose "Timeout is now $timeout seconds" 2
- set try_count 0;
- send_gdb $command;
+ set try_count 0
+ send_gdb $command
gdb_expect {
-re "Unknown response.*resetting the board.|remote timeout" {
- incr try_count;
+ incr try_count
if { $try_count > 3 } {
- set try_count 0;
- reboot_target;
- sleep 5;
+ set try_count 0
+ reboot_target
+ sleep 5
}
- sleep 1;
- send_gdb $command;
- exp_continue;
+ sleep 1
+ send_gdb $command
+ exp_continue
}
-re "Remote target.*$gdb_prompt $" { }
-re ".*SPARClite appears to be alive.*$gdb_prompt $" {
@@ -96,13 +96,13 @@ proc gdb_load { arg } {
}
if [target_info exists gdb_load_offset] {
- set offset "[target_info gdb_load_offset]";
+ set offset "[target_info gdb_load_offset]"
} else {
- set offset "";
+ set offset ""
}
if { 1 } {
if [is_remote host] {
- set arg [remote_download host $arg];
+ set arg [remote_download host $arg]
if { $arg == "" } {
error "download failed"
return -1
@@ -135,30 +135,30 @@ proc gdb_load { arg } {
if [target_info exists need_monitor_run] {
set timeout 10
verbose "Timeout is now $timeout seconds, doing monitor run" 2
- send_gdb "monitor run\n";
- sleep 2;
- send_gdb "";
+ send_gdb "monitor run\n"
+ sleep 2
+ send_gdb ""
gdb_expect {
-re ".*$gdb_prompt $" { verbose "Run command succeded" }
default {
- perror "error sending monitor run command";
+ perror "error sending monitor run command"
}
}
} else {
- sleep 2;
+ sleep 2
}
if [target_info exists gdb_serial] {
- set serial [target_info gdb_serial];
+ set serial [target_info gdb_serial]
} else {
- set serial [target_info serial];
+ set serial [target_info serial]
}
send_gdb "target remote $serial\n"
set timeout 60
verbose "Timeout is now $timeout seconds" 2
gdb_expect {
-re ".*Kill it?.*y or n.*" {
- send_gdb "y\n";
+ send_gdb "y\n"
exp_continue
}
-re ".*$gdb_prompt $" {