diff options
Diffstat (limited to 'gdb/testsuite/gdb.base/breakpoint-in-ro-region.exp')
| -rw-r--r-- | gdb/testsuite/gdb.base/breakpoint-in-ro-region.exp | 104 |
1 files changed, 104 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.base/breakpoint-in-ro-region.exp b/gdb/testsuite/gdb.base/breakpoint-in-ro-region.exp index 8eacefa..1991aa5 100644 --- a/gdb/testsuite/gdb.base/breakpoint-in-ro-region.exp +++ b/gdb/testsuite/gdb.base/breakpoint-in-ro-region.exp @@ -27,6 +27,28 @@ if ![runto main] { delete_breakpoints +# Probe for hardware stepping. + +proc probe_target_hardware_step {} { + global gdb_prompt + + set hw_step 0 + + gdb_test_no_output "set debug target 1" + set test "probe target hardware step" + gdb_test_multiple "si" $test { + -re "to_resume \\(\[^\r\n\]+, step, .*$gdb_prompt $" { + set hw_step 1 + pass $test + } + -re "$gdb_prompt $" { + pass $test + } + } + gdb_test "set debug target 0" "->to_log_command.*\\).*" + return $hw_step +} + # Get the bounds of a function, and write them to FUNC_LO (inclusive), # FUNC_HI (exclusive). Return true on success and false on failure. proc get_function_bounds {function func_lo func_hi} { @@ -108,6 +130,7 @@ proc get_next_insn {} { return $next } +set hw_step [probe_target_hardware_step] if ![get_function_bounds "main" main_lo main_hi] { # Can't do the following tests if main's bounds are unknown. @@ -140,3 +163,84 @@ gdb_test "p /x *(char *) $main_lo = 1" \ gdb_test "break *$main_lo" \ "Cannot insert breakpoint .*Cannot set software breakpoint at read-only address $main_lo.*" \ "inserting software breakpoint in read-only memory fails" + +delete_breakpoints + +set supports_hbreak 0 +set test "probe hbreak support" +gdb_test_multiple "hbreak *$main_lo" $test { + -re "You may have requested too many.*$gdb_prompt $" { + pass "$test (no support)" + } + -re "No hardware breakpoint support.*$gdb_prompt $" { + pass "$test (no support)" + } + -re "$gdb_prompt $" { + pass "$test (support)" + set supports_hbreak 1 + } +} + +delete_breakpoints + +# Check that the "auto-hw on/off" setting affects single-step +# breakpoints as expected, by stepping through the read-only region. +# If the target does hardware stepping, we won't exercise that aspect, +# but we should be able to step through the region without seeing the +# hardware breakpoint or read-only address errors. +proc test_single_step { always_inserted auto_hw } { + global gdb_prompt + global decimal + global supports_hbreak + global hw_step + + gdb_test_no_output "set breakpoint always-inserted $always_inserted" + gdb_test_no_output "set breakpoint auto-hw $auto_hw" + + # Get the address of the current instruction so we know where SI is + # starting from. + set curr_insn [get_curr_insn] + + # Get the address of the next instruction so we know where SI should + # land. + set next_insn [get_next_insn] + + set test "step in ro region" + gdb_test_multiple "si" $test { + -re "Could not insert hardware breakpoints.*$gdb_prompt $" { + gdb_assert {!$hw_step && $auto_hw == "on" && !$supports_hbreak} \ + "$test (cannot insert hw break)" + } + -re "Cannot set software breakpoint at read-only address $next_insn.*$gdb_prompt $" { + gdb_assert {!$hw_step && $auto_hw == "off"} \ + "$test (cannot insert sw break)" + } + -re "^si\r\nNote: automatically using hardware breakpoints for read-only addresses\.\r\n${decimal}\[ \t\]+i = 0;\r\n$gdb_prompt $" { + gdb_assert {!$hw_step && $auto_hw == "on" && $supports_hbreak} \ + "$test (auto-hw)" + } + -re "^si\r\n${decimal}\[ \t\]+i = 0;\r\n$gdb_prompt $" { + gdb_assert {$hw_step || ($auto_hw == "on" && $supports_hbreak)} \ + "$test (no error)" + } + } + + gdb_test "maint info breakpoints 0" \ + "No breakpoint or watchpoint matching '0'\." \ + "single-step breakpoint is not left behind" + + # Confirm the thread really advanced. + if {$hw_step || ($auto_hw == "on" && $supports_hbreak)} { + gdb_test "p /x \$pc" " = $next_insn" "thread advanced" + } else { + gdb_test "p /x \$pc" " = $curr_insn" "thread did not advance" + } +} + +foreach always_inserted {"off" "on"} { + foreach auto_hw {"off" "on"} { + with_test_prefix "always-inserted $always_inserted: auto-hw $auto_hw" { + test_single_step $always_inserted $auto_hw + } + } +} |