gdb/testsuite/gdb.base/break-always.exp

   1 #   Copyright 2008-2024 Free Software Foundation, Inc.
   2
   3 # This program is free software; you can redistribute it and/or modify
   4 # it under the terms of the GNU General Public License as published by
   5 # the Free Software Foundation; either version 3 of the License, or
   6 # (at your option) any later version.
   7 #
   8 # This program is distributed in the hope that it will be useful,
   9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 # GNU General Public License for more details.
  12 #
  13 # You should have received a copy of the GNU General Public License
  14 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  15
  16 # Test that 'set breakpoint always-inserted 1' is not a brick
  17 # Also verifies that breakpoint enabling/disabling works properly
  18 # with duplicated breakpoints.
  19
  20 if { [prepare_for_testing "failed to prepare" break-always break-always.c] } {
  21     return -1
  22 }
  23
  24 set bar_location [gdb_get_line_number "break in bar" break-always.c]
  25
  26 gdb_test_no_output "set breakpoint always-inserted on"
  27
  28 gdb_test "show breakpoint always-inserted" "mode is on\." \
  29     "confirm breakpoint always-inserted"
  30
  31 runto foo
  32
  33 gdb_test "break bar" "Breakpoint 2.*" "set breakpoint on bar"
  34 gdb_test "break bar" "Note: breakpoint 2 also set.*Breakpoint 3.*" "set 2nd breakpoint on bar"
  35 gdb_test "break bar" "Note: breakpoints 2 and 3 also set.*Breakpoint 4.*" "set 3rd breakpoint on bar"
  36 gdb_test "break bar" "Note: breakpoints 2, 3 and 4 also set.*Breakpoint 5.*" "set 4th breakpoint on bar"
  37 gdb_test "info breakpoints" "keep y.*keep y.*keep y.*keep y.*keep y.*" "initial check breakpoint state"
  38 gdb_test_no_output "disable" "initial disable all breakpoints"
  39 gdb_test_no_output "enable" "initial enable all breakpoints"
  40 gdb_test_no_output "disable" "re-disable all breakpoints"
  41 gdb_test_no_output "enable 3" "enable 3.A"
  42 gdb_test_no_output "disable 3" "disable 3.B"
  43 gdb_test_no_output "enable 3" "enable 3.C"
  44 gdb_test_no_output "enable 2" "enable 2.D"
  45 gdb_test_no_output "disable 2" "disable 2.E"
  46 gdb_test_no_output "disable 3" "disable 3.F"
  47 gdb_test_no_output "enable 3" "enable 3.G"
  48 gdb_test_no_output "enable 2" "enable 2.H"
  49 gdb_test_no_output "disable 2" "disable 2.I"
  50 gdb_test "info breakpoints" "keep n.*keep n.*keep y.*keep n.*keep n.*" "before re-enable check breakpoint state"
  51 gdb_test_no_output "enable" "re-enable all breakpoints"
  52
  53 set bp_address 0
  54 set test "set breakpoint on bar 2"
  55 gdb_test_multiple "break bar" $test {
  56     -re "Breakpoint 6 at ($hex).*$gdb_prompt $" {
  57         set bp_address $expect_out(1,string)
  58         pass $test
  59     }
  60 }
  61
  62 # Save the original INSN under the breakpoint.
  63 gdb_test "p /x \$shadow = *(char *) $bp_address" \
  64     " = $hex" \
  65     "save shadow"
  66
  67 # Overwrite memory where the breakpoint is planted.  GDB should update
  68 # its memory breakpoint's shadows, to account for the new contents,
  69 # and still leave the breakpoint insn planted.  Try twice with
  70 # different values, in case we happen to be writing exactly what was
  71 # there already.
  72 foreach test_value {0 1} {
  73     set write_test "write $test_value to breakpoint's address"
  74
  75     gdb_test_multiple "p /x *(char *) $bp_address = $test_value" $write_test {
  76         -re "Cannot access memory at address $hex.*$gdb_prompt $" {
  77
  78             # Some targets do not allow manually writing a breakpoint to a
  79             # certain memory address, like QEMU.  In that case, just bail out.
  80             unsupported "cannot write to address $bp_address"
  81             return -1
  82         }
  83         -re " = .*$gdb_prompt $" {
  84             pass $write_test
  85         }
  86     }
  87
  88     set read_test "read back $test_value from the breakpoint's address"
  89     gdb_test "p /x *(char *) $bp_address" " = 0x$test_value" $read_test
  90 }
  91
  92 # Restore the original contents.
  93 gdb_test "p /x *(char *) $bp_address = \$shadow" "" \
  94     "restore the original contents"
  95
  96 # Run to breakpoint.
  97 gdb_continue_to_breakpoint "bar" ".*break-always.c:$bar_location.*"