diff options
author | Ben Elliston <bje@gnu.org> | 2006-05-22 06:01:35 +0000 |
---|---|---|
committer | Ben Elliston <bje@gnu.org> | 2006-05-22 06:01:35 +0000 |
commit | 433e1aeb52247acb6ebed9b7ecba5077eb7a7083 (patch) | |
tree | 2123f2f4d06c24ac0e24fb9a5587363c76bfa6a5 /config/gdb_stub.exp | |
parent | b6feeb81729c431a93264a920e3d4ac93f6b96f5 (diff) | |
download | dejagnu-433e1aeb52247acb6ebed9b7ecba5077eb7a7083.zip dejagnu-433e1aeb52247acb6ebed9b7ecba5077eb7a7083.tar.gz dejagnu-433e1aeb52247acb6ebed9b7ecba5077eb7a7083.tar.bz2 |
* runtest.exp, baseboards/basic-sim.exp, baseboards/cf.exp,
baseboards/cris-sim.exp, baseboards/i960-cyclone.exp,
baseboards/mcore-moto-sim.exp, baseboards/mips64vr4100-sim.exp,
baseboards/mmixware-sim.exp, baseboards/op50n.exp,
baseboards/rom68k-idp.exp, baseboards/sparclite-sim-le.exp,
baseboards/usparc-cygmon.exp, config/base-config.exp,
config/base68k.exp, config/ddb-ether.exp, config/ddb.exp,
config/dos.exp, config/gdb-comm.exp, config/gdb_stub.exp,
config/i386-bozo.exp, config/i960.exp, config/m68k-emc.exp,
config/netware.exp, config/sid.exp, config/sim.exp,
config/tic80.exp, config/unix.exp, config/vxworks.exp,
lib/debugger.exp, lib/dejagnu.exp, lib/dg.exp, lib/framework.exp,
lib/ftp.exp, lib/kermit.exp, lib/libgloss.exp, lib/remote.exp,
lib/rlogin.exp, lib/rsh.exp, lib/target.exp, lib/targetdb.exp,
lib/telnet.exp, lib/tip.exp, lib/utils.exp: Put braces around if
expressions throughout.
Diffstat (limited to 'config/gdb_stub.exp')
-rw-r--r-- | config/gdb_stub.exp | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/config/gdb_stub.exp b/config/gdb_stub.exp index 9e517dc..6c33a5f 100644 --- a/config/gdb_stub.exp +++ b/config/gdb_stub.exp @@ -28,14 +28,14 @@ proc gdb_stub_init { dest args } { global GDB global tool_root_dir - if ![info exists GDB] then { + if {![info exists GDB]} then { set GDB "[lookfor_file ${tool_root_dir} gdb/gdb]" if { $GDB == "" } { set GDB [transform gdb] } } - if [board_info $dest exists gdb_prompt] { + if {[board_info $dest exists gdb_prompt]} { set gdb_prompt [board_info $dest gdb_prompt] } else { set gdb_prompt "\\(gdb\\)" @@ -54,7 +54,7 @@ proc gdb_stub_restart { dest } { remote_close $dest sleep 2 set command "$GDB -nw -nx" - if [host_info exists gdb_opts] { + if {[host_info exists gdb_opts]} { append command " [host_info gdb_opts]" } set spawn_id [remote_spawn host $command] @@ -62,7 +62,7 @@ proc gdb_stub_restart { dest } { -re "$gdb_prompt" { } } if { $spawn_id >= 0 } { - if [board_info $dest exists baud] { + if {[board_info $dest exists baud]} { remote_send host "set remotebaud [board_info $dest baud]\n" remote_expect host 5 { -re "$gdb_prompt" { } @@ -97,9 +97,9 @@ proc gdb_stub_restart { dest } { proc gdb_stub_remote_check { dest } { global gdb_prompt - if [board_info $dest exists gdb_serial] { + if {[board_info $dest exists gdb_serial]} { set serial [board_info $dest gdb_serial] - } elseif [board_info $dest exists serial] { + } elseif {[board_info $dest exists serial]} { set serial [board_info $dest serial] } else { set serial [board_info $dest netport] @@ -135,11 +135,11 @@ proc gdb_stub_startup { dest } { set is_running_stub 0 - if [gdb_stub_remote_check $dest] { + if {[gdb_stub_remote_check $dest]} { set is_running_stub 1 } - if [board_info $dest exists serial] { + if {[board_info $dest exists serial]} { set serial [board_info $dest serial] } else { set serial [board_info $dest netport] @@ -165,14 +165,14 @@ proc gdb_stub_startup { dest } { verbose "building loader" set loader "loader" - if ![file exists $loader] { - if [board_info $dest exists gdb_stub_offset] { + if {![file exists $loader]} { + if {[board_info $dest exists gdb_stub_offset]} { set result [target_compile "${libdir}/stub-loader.c" $loader executable "libs=-Wl,-Ttext,[board_info $dest gdb_stub_offset]"] } else { set result [target_compile "${libdir}/stub-loader.c" $loader executable "ldscript=[board_info $dest gdb_stub_ldscript]"] } verbose "result is $result" - if [is_remote host] { + if {[is_remote host]} { set loader [remote_download host $loader] } } @@ -194,7 +194,7 @@ proc gdb_stub_startup { dest } { } } - if [board_info $dest exists serial] { + if {[board_info $dest exists serial]} { set serial [board_info $dest serial] } else { set serial [board_info $dest netport] @@ -215,7 +215,7 @@ proc gdb_stub_startup { dest } { # We only send the offset if gdb_load_offset is set. Otherwise, we # assume that sending the offset isn't needed. - if [board_info $dest exists gdb_load_offset] { + if {[board_info $dest exists gdb_load_offset]} { remote_send host "load $loader [board_info $dest gdb_stub_offset]\n" } else { remote_send host "load $loader\n" @@ -362,7 +362,7 @@ proc gdb_stub_start { dest } { -re "$gdb_prompt" { } } # This is needed for the SparcLite. Whee. - if [board_info $dest exists gdb,start_symbol] { + if {[board_info $dest exists gdb,start_symbol]} { set start_comm "jump *[board_info $dest gdb,start_symbol]\n" } else { set start_comm "jump *start\n" @@ -494,12 +494,12 @@ proc gdb_stub_load { dest prog args } { if { $status == 0 } { return [list "pass" $output] - } else if { $status > 0 } { + } elseif { $status > 0 } { return [list "fail" $output] } else { global gdb_stub_retry - if ![info exists gdb_stub_retry] { + if {![info exists gdb_stub_retry]} { set gdb_stub_retry 1 set result [eval gdb_stub_load \{$dest\} \{$prog\} $args] @@ -521,8 +521,8 @@ proc gdb_stub_ld { dest prog } { global gdb_prompt global GDB - if ![board_info $dest exists gdb_is_running] { - if ![gdb_stub_restart $dest] { + if {![board_info $dest exists gdb_is_running]} { + if {![gdb_stub_restart $dest]} { return 0 } } @@ -555,9 +555,9 @@ proc gdb_stub_ld { dest prog } { # just in case there are old breakpoints lying around. gdb_stub_delete_breakpoints - if [board_info $dest exists gdb_serial] { + if {[board_info $dest exists gdb_serial]} { set serial [board_info $dest gdb_serial] - } elseif [board_info $dest exists serial] { + } elseif {[board_info $dest exists serial]} { set serial [board_info $dest serial] } else { set serial [board_info $dest netport] @@ -578,7 +578,7 @@ proc gdb_stub_ld { dest prog } { } } - if [board_info $dest exists gdb_load_offset] { + if {[board_info $dest exists gdb_load_offset]} { set offset "[board_info $dest gdb_load_offset]" } else { set offset "" @@ -612,7 +612,7 @@ proc gdb_stub_retry_ld { dest prog } { global gdb_stub_retry_ld remote_reboot $dest - if [info exists gdb_stub_retry_ld] { + if {[info exists gdb_stub_retry_ld]} { unset gdb_stub_retry_ld return 0 } else { @@ -620,7 +620,7 @@ proc gdb_stub_retry_ld { dest prog } { } gdb_stub_restart $dest set status [gdb_stub_ld $dest $prog] - if [info exists gdb_stub_retry_ld] { + if {[info exists gdb_stub_retry_ld]} { unset gdb_stub_retry_ld } return $status @@ -629,7 +629,7 @@ proc gdb_stub_retry_ld { dest prog } { proc gdb_stub_close { dest } { global board_info set name [board_info $dest name] - if [info exists board_info($name,gdb_is_running)] { + if {[info exists board_info($name,gdb_is_running)]} { unset board_info($name,gdb_is_running) } return [remote_close host] |