diff options
Diffstat (limited to 'gdb/testsuite/gdb.arch/pa-nullify.exp')
| -rw-r--r-- | gdb/testsuite/gdb.arch/pa-nullify.exp | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/gdb/testsuite/gdb.arch/pa-nullify.exp b/gdb/testsuite/gdb.arch/pa-nullify.exp index 1b3a88f..7532ea9 100644 --- a/gdb/testsuite/gdb.arch/pa-nullify.exp +++ b/gdb/testsuite/gdb.arch/pa-nullify.exp @@ -88,7 +88,10 @@ proc get_addr_of_sym { sym } { return $addr } -if { ! [ runto_main ] } then { gdb_suppress_tests; } +if ![runto_main] then { + fail "can't run to main" + return 0 +} set foo [get_addr_of_sym "foo"] set bar [get_addr_of_sym "bar"] @@ -122,7 +125,10 @@ proc test_core_bt { test } { } set test "core at last insn in foo" -if { ! [ runto_main ] } then { gdb_suppress_tests; } +if ![runto_main] then { + fail "can't run to main" + return 0 +} gdb_breakpoint "*$foo_last" gdb_test "continue" "Breakpoint \[0-9\]*,.* in foo.*" "$test: continue to breakpoint" if [gen_core $test] { @@ -130,7 +136,10 @@ if [gen_core $test] { } set test "core at nullified insn" -if { ! [ runto_main ] } then { gdb_suppress_tests; } +if ![runto_main] then { + fail "can't run to main" + return 0 +} gdb_breakpoint "*$foo_last" gdb_test "continue" "Breakpoint \[0-9\]*,.* in foo.*" "$test: continue to breakpoint" gdb_test "stepi" ".*in foo.*" "$test: step to nullified instruction" |