diff options
Diffstat (limited to 'gdb/testsuite/gdb.base/dprintf.exp')
| -rw-r--r-- | gdb/testsuite/gdb.base/dprintf.exp | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/gdb/testsuite/gdb.base/dprintf.exp b/gdb/testsuite/gdb.base/dprintf.exp index 0135b86..6fb2085 100644 --- a/gdb/testsuite/gdb.base/dprintf.exp +++ b/gdb/testsuite/gdb.base/dprintf.exp @@ -26,7 +26,7 @@ if { [prepare_for_testing "failed to prepare" $testfile $srcfile $flags] } { set bp_location1 [gdb_get_line_number "set breakpoint 1 here"] set dp_location1 [gdb_get_line_number "set dprintf 1 here"] -if ![runto_main] { +if {![runto_main]} { return -1 } @@ -74,9 +74,10 @@ proc restart {} { global binfile global bp_location1 dp_location1 - clean_restart $binfile + clean_restart + gdb_load $binfile - if ![runto_main] { + if {![runto_main]} { return -1 } @@ -141,7 +142,7 @@ proc test_call {} { # The "call" style depends on having I/O functions available. -if ![target_info exists gdb,noinferiorio] { +if {![target_info exists gdb,noinferiorio]} { with_test_prefix "call" { test_call } @@ -170,7 +171,7 @@ proc test_agent {} { } } - if !$target_can_dprintf { + if {!$target_can_dprintf} { return } @@ -190,7 +191,7 @@ proc test_agent {} { } } - if $target_can_dprintf { + if {$target_can_dprintf} { gdb_test "continue" "Breakpoint \[0-9\]+, foo .*" "2nd dprintf" gdb_test_sequence "info breakpoints" "dprintf info" { @@ -217,7 +218,7 @@ gdb_test "set dprintf-style foobar" "Undefined item: \"foobar\"." \ # Test that force-disabling the BreakpointCommands RSP feature works # as expected. dprintf relies on support for target-side breakpoint # commands --- use it as proxy. -if [gdb_protocol_is_remote] { +if {[gdb_protocol_is_remote]} { gdb_test \ "set remote breakpoint-commands-packet off" \ "Support for the 'BreakpointCommands' packet on the current remote target is set to \"off\"." |