Commit | Line | Data |
---|---|---|
618f726f | 1 | # Copyright 2008-2016 Free Software Foundation, Inc. |
74960c60 VP |
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 | |
934709f0 PW |
17 | # Also verifies that breakpoint enabling/disabling works properly |
18 | # with duplicated breakpoints. | |
74960c60 | 19 | |
5b362f04 | 20 | if { [prepare_for_testing "failed to prepare" break-always break-always.c] } { |
74960c60 VP |
21 | return -1 |
22 | } | |
23 | ||
24 | set bar_location [gdb_get_line_number "break in bar" break-always.c] | |
25 | ||
27d3a1a2 | 26 | gdb_test_no_output "set breakpoint always-inserted on" |
c141c696 MS |
27 | |
28 | gdb_test "show breakpoint always-inserted" "mode is on\." \ | |
29 | "confirm breakpoint always-inserted" | |
74960c60 VP |
30 | |
31 | runto foo | |
32 | ||
33 | gdb_test "break bar" "Breakpoint 2.*" "set breakpoint on bar" | |
934709f0 PW |
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" | |
74960c60 | 52 | |
f0ba3972 PA |
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" | |
74960c60 | 66 | |
f0ba3972 PA |
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. | |
ecbf2b3c LM |
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. | |
bc6c7af4 | 80 | unsupported "cannot write to address $bp_address" |
ecbf2b3c LM |
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 | } | |
f0ba3972 PA |
91 | |
92 | # Restore the original contents. | |
ebb022fa TT |
93 | gdb_test "p /x *(char *) $bp_address = \$shadow" "" \ |
94 | "restore the original contents" | |
f0ba3972 PA |
95 | |
96 | # Run to breakpoint. | |
97 | gdb_continue_to_breakpoint "bar" ".*break-always.c:$bar_location.*" |