diff options
Diffstat (limited to 'gdb/testsuite/gdb.base/consecutive.exp')
| -rw-r--r-- | gdb/testsuite/gdb.base/consecutive.exp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gdb/testsuite/gdb.base/consecutive.exp b/gdb/testsuite/gdb.base/consecutive.exp index 4b38de0c3bc..b517b42e623 100644 --- a/gdb/testsuite/gdb.base/consecutive.exp +++ b/gdb/testsuite/gdb.base/consecutive.exp @@ -26,7 +26,7 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug nowarning return -1 } -if ![runto_main] then { +if {![runto_main]} { perror "couldn't run to breakpoint" return } @@ -55,7 +55,7 @@ gdb_test "break \*$bp_addr" "Breakpoint $decimal at $bp_addr: file .*" \ gdb_test_multiple "step" "stopped at bp, 2nd instr" { -re -wrap "Breakpoint $decimal, ($hex) in foo.*" { set stop_addr $expect_out(1,string) - if [eval expr "$bp_addr == $stop_addr"] then { + if {[eval expr "$bp_addr == $stop_addr"]} { pass "stopped at bp, 2nd instr" } else { fail "stopped at bp, 2nd instr (wrong address)" @@ -64,9 +64,9 @@ gdb_test_multiple "step" "stopped at bp, 2nd instr" { -re -wrap "Breakpoint $decimal, foo.*" { set stop_addr [get_valueof "/x" "\$pc" "" "value of pc"] set stop_addr_is_stmt [hex_in_list $stop_addr $is_stmt] - if { ! $stop_addr_is_stmt } { + if {!$stop_addr_is_stmt} { fail "stopped at bp, 2nd instr (missing hex prefix)" - } elseif [eval expr "$bp_addr == $stop_addr"] then { + } elseif {[eval expr "$bp_addr == $stop_addr"]} { pass "stopped at bp, 2nd instr" } else { fail "stopped at bp, 2nd instr (wrong address)" |