1#   Copyright 2008-2020 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
20if { [prepare_for_testing "failed to prepare" break-always break-always.c] } {
21    return -1
22}
23
24set bar_location [gdb_get_line_number "break in bar" break-always.c]
25
26gdb_test_no_output "set breakpoint always-inserted on"
27
28gdb_test "show breakpoint always-inserted" "mode is on\." \
29    "confirm breakpoint always-inserted"
30
31runto foo
32
33gdb_test "break bar" "Breakpoint 2.*" "set breakpoint on bar"
34gdb_test "break bar" "Note: breakpoint 2 also set.*Breakpoint 3.*" "set 2nd breakpoint on bar"
35gdb_test "break bar" "Note: breakpoints 2 and 3 also set.*Breakpoint 4.*" "set 3rd breakpoint on bar"
36gdb_test "break bar" "Note: breakpoints 2, 3 and 4 also set.*Breakpoint 5.*" "set 4th breakpoint on bar"
37gdb_test "info breakpoints" "keep y.*keep y.*keep y.*keep y.*keep y.*" "initial check breakpoint state"
38gdb_test_no_output "disable" "initial disable all breakpoints"
39gdb_test_no_output "enable" "initial enable all breakpoints"
40gdb_test_no_output "disable" "re-disable all breakpoints"
41gdb_test_no_output "enable 3" "enable 3.A"
42gdb_test_no_output "disable 3" "disable 3.B"
43gdb_test_no_output "enable 3" "enable 3.C"
44gdb_test_no_output "enable 2" "enable 2.D"
45gdb_test_no_output "disable 2" "disable 2.E"
46gdb_test_no_output "disable 3" "disable 3.F"
47gdb_test_no_output "enable 3" "enable 3.G"
48gdb_test_no_output "enable 2" "enable 2.H"
49gdb_test_no_output "disable 2" "disable 2.I"
50gdb_test "info breakpoints" "keep n.*keep n.*keep y.*keep n.*keep n.*" "before re-enable check breakpoint state"
51gdb_test_no_output "enable" "re-enable all breakpoints"
52
53set bp_address 0
54set test "set breakpoint on bar 2"
55gdb_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.
63gdb_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 writting exactly what was
71# there already.
72foreach 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.
93gdb_test "p /x *(char *) $bp_address = \$shadow" "" \
94    "restore the original contents"
95
96# Run to breakpoint.
97gdb_continue_to_breakpoint "bar" ".*break-always.c:$bar_location.*"
98