Commit | Line | Data |
---|---|---|
b811d2c2 | 1 | # Copyright (C) 2014-2020 Free Software Foundation, Inc. |
af48d08f PA |
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 | # This file is part of the gdb testsuite. | |
17 | ||
18 | # Test stepping over permanent breakpoints. | |
19 | ||
20 | standard_testfile | |
21 | ||
22 | set options { debug } | |
23 | if { ![target_info exists gdb,nosignals] } { | |
24 | lappend options "additional_flags=-DSIGNALS" | |
25 | } | |
26 | ||
27 | if {[build_executable "failed to prepare" $testfile $srcfile $options]} { | |
28 | return -1 | |
29 | } | |
30 | ||
31 | set line_bp [gdb_get_line_number "write permanent bp"] | |
32 | ||
33 | # The test proper. ALWAYS_INSERTED indicates whether testing in | |
34 | # "breakpoint always-inserted" mode. If SW_WATCHPOINT is true, set a | |
35 | # software watchpoint, which forces constantly single-stepping, and | |
36 | # exercises stepping the permanent breakpoint while delivering a | |
37 | # signal at the same time. | |
38 | ||
39 | proc test {always_inserted sw_watchpoint} { | |
40 | global line_bp | |
41 | global hex decimal | |
42 | global gdb_prompt | |
43 | global srcfile binfile | |
44 | ||
45 | clean_restart $binfile | |
46 | ||
47 | if ![runto_main] then { | |
48 | return -1 | |
49 | } | |
50 | ||
51 | gdb_test "set breakpoint always-inserted $always_inserted" | |
52 | ||
53 | if {$sw_watchpoint} { | |
54 | # Watching a convenience variable forces a software | |
55 | # watchpoint. | |
56 | gdb_test "watch \$dummy_convenience" "Watchpoint .*" | |
57 | } | |
58 | ||
59 | set address_bp "" | |
60 | set address_after_bp "" | |
61 | ||
62 | with_test_prefix "setup" { | |
63 | ||
64 | # Set a breakpoint where we'll manually plant a permanent | |
65 | # breakpoint. | |
66 | set test "set probe breakpoint" | |
67 | gdb_test_multiple "break $line_bp" $test { | |
68 | -re "Breakpoint .* at ($hex).*$gdb_prompt $" { | |
69 | set address_bp $expect_out(1,string) | |
70 | pass $test | |
71 | } | |
72 | } | |
73 | if {$address_bp == ""} { | |
74 | return | |
75 | } | |
76 | ||
77 | # Get the size of the instruction where the breakpoint will | |
78 | # manually inserted. | |
79 | set test "get size of instruction" | |
80 | gdb_test_multiple "x/2i $address_bp" $test { | |
81 | -re ".*$hex <test\\+$decimal>:\[^\r\n\]+\r\n\[ \]+($hex).*\.\r\n$gdb_prompt $" { | |
82 | set address_after_bp $expect_out(1,string) | |
83 | pass $test | |
84 | } | |
85 | } | |
86 | if {$address_after_bp == ""} { | |
87 | return | |
88 | } | |
89 | ||
90 | # Write address range where the breakpoint is inserted to the | |
91 | # corresponding variables in the inferior. | |
92 | gdb_test "p /x addr_bp = $address_bp" " = $address_bp" \ | |
93 | "write addr_bp" | |
94 | gdb_test "p /x addr_after_bp = $address_after_bp" " = $address_after_bp" \ | |
95 | "write addr_after_bp" | |
96 | ||
97 | # Run the "setup" function in the inferior. This memcpy's the | |
98 | # breakpoint instruction to a buffer in the inferior. | |
9494d219 | 99 | gdb_test "next" "test_basics \\(\\).*" "next over setup" |
af48d08f PA |
100 | |
101 | delete_breakpoints | |
102 | ||
103 | # We now have the breakpoint instruction stored in 'buffer'. Poke it | |
104 | # to memory manually. | |
105 | set count [expr $address_after_bp - $address_bp] | |
106 | for {set i 0} {$i < $count} {incr i} { | |
9e811bc3 LM |
107 | set test "p /x addr_bp\[$i\] = buffer\[$i\]" |
108 | gdb_test_multiple $test $test { | |
0ff6fcb2 LM |
109 | -re "Cannot access memory at address $hex.*$gdb_prompt $" { |
110 | # Some targets (QEMU for one) will disallow writes to the | |
111 | # .text section under certain circumstances. It is no use | |
112 | # continuing with the test at this point. Just return. | |
bc6c7af4 | 113 | unsupported "cannot modify memory" |
0ff6fcb2 LM |
114 | return |
115 | } | |
116 | -re " = .*$gdb_prompt $" { | |
117 | pass $test | |
118 | } | |
119 | } | |
af48d08f PA |
120 | } |
121 | } | |
122 | ||
123 | with_test_prefix "basics" { | |
124 | # Run to the permanent breakpoint, just to make sure we've inserted it | |
125 | # correctly. | |
ee2d2b10 SL |
126 | # If the target fails to stop, the remainder of the test will not work |
127 | # so just return. This can happen on some simulator targets where | |
128 | # the running program doesn't see breakpoints that are visible to | |
129 | # the execution engine, or where writes to the .text section are | |
130 | # quietly ignored. | |
131 | set test "permanent breakpoint causes random signal" | |
132 | gdb_test_multiple "continue" $test { | |
133 | -re "exited normally.*$gdb_prompt $" { | |
134 | unsupported "failed to stop at permanent breakpoint" | |
135 | return | |
136 | } | |
137 | -re "Program received signal SIGTRAP.*$gdb_prompt $" { | |
138 | pass $test | |
139 | } | |
140 | } | |
af48d08f PA |
141 | |
142 | # Now set a breakpoint on top, thus creating a permanent breakpoint. | |
143 | gdb_breakpoint "$line_bp" | |
144 | ||
145 | # Depending on whether this is a decr_pc_after_break arch, the PC will | |
146 | # be either pointing at the permanent breakpoint address, or just | |
147 | # after. Set the GDB breakpoint on top, and continue, twice. At | |
148 | # least once, GDB will need to step-over the permanent breakpoint. | |
149 | ||
150 | gdb_test "continue" "Breakpoint .*" "stop at permanent breakpoint" | |
151 | ||
152 | gdb_test "p \$prev_counter = counter" " = $decimal" | |
153 | ||
154 | gdb_test "continue" "Breakpoint .*" "stop at permanent breakpoint twice" | |
155 | ||
156 | # Check that indeed the continue made progress, instead of re-trapping | |
157 | # without advancing. | |
158 | gdb_test "p counter - \$prev_counter" " = 1" | |
159 | ||
160 | gdb_test "info breakpoints" \ | |
161 | "breakpoint.*keep.*y.*$hex.*in test at .*$srcfile:$line_bp.*already hit 2 times.*" \ | |
162 | "info breakpoints show enabled breakpoint" | |
163 | ||
164 | gdb_test "disable \$bpnum" | |
165 | ||
166 | gdb_test "commands\nset \$commands_ran = 1\nend" "" \ | |
167 | "set breakpoint commands" | |
168 | ||
169 | gdb_test "info breakpoints" \ | |
170 | "breakpoint.*keep.*n.*$hex.*in test at .*$srcfile:$line_bp.*already hit 2 times.*" \ | |
171 | "info breakpoints shows disabled breakpoint" | |
172 | ||
173 | # Run to the permanent breakpoint again. This time, since it's | |
174 | # disabled, it should act as if we hadn't created it in the first | |
175 | # place. IOW, we should get a random signal, and, the breakpoint's | |
176 | # command should not run. | |
177 | gdb_test "continue" "Program received signal SIGTRAP.*" \ | |
178 | "disabled permanent breakpoint doesn't explain stop" | |
179 | ||
180 | gdb_test "info breakpoints" \ | |
181 | "breakpoint.*keep.*n.*$hex.*in test at .*$srcfile:$line_bp.*already hit 2 times.*" \ | |
182 | "info breakpoints still shows same number of hits" | |
183 | ||
184 | gdb_test "print \$commands_ran" " = void" \ | |
185 | "breakpoint commands didn't run" | |
186 | ||
187 | # Reenable the breakpoint, and check that it gets hit and accounted | |
188 | # for this time. | |
189 | gdb_test "enable \$bpnum" "" "reenable breakpoint" | |
190 | ||
191 | gdb_test "continue" "Breakpoint .*" \ | |
192 | "stop at permanent breakpoint thrice" | |
193 | ||
194 | gdb_test "info breakpoints" \ | |
195 | "breakpoint.*keep.*y.*$hex.*in test at .*$srcfile:$line_bp.*already hit 3 times.*" \ | |
196 | "info breakpoints shows one more hit" | |
197 | ||
198 | gdb_test "print \$commands_ran" " = 1" "breakpoint commands ran" | |
199 | ||
200 | # Check that stepi advances only past the permanent breakpoint, and | |
201 | # not a single instruction more. | |
202 | gdb_test "stepi" "after permanent bp .*" \ | |
203 | "single-step past permanent breakpoint" | |
204 | } | |
205 | ||
206 | with_test_prefix "next trips on permanent bp" { | |
207 | delete_breakpoints | |
208 | ||
209 | gdb_breakpoint "test_next" | |
210 | gdb_continue_to_breakpoint "test_next" | |
211 | ||
212 | gdb_breakpoint "$line_bp" | |
213 | gdb_test "condition \$bpnum 0" | |
214 | ||
215 | gdb_test "next" "after next .*" | |
216 | } | |
217 | ||
218 | if ![target_info exists gdb,nosignals] { | |
219 | ||
220 | with_test_prefix "continue trips on nested permanent bp" { | |
221 | delete_breakpoints | |
222 | ||
223 | gdb_breakpoint "test_signal_nested" | |
224 | gdb_continue_to_breakpoint "test_signal_nested" | |
225 | ||
226 | gdb_breakpoint "$line_bp" | |
227 | gdb_continue_to_breakpoint "permanent bp" | |
228 | gdb_test "condition \$bpnum 0" | |
229 | ||
230 | # Let SIGALRM trigger. | |
231 | sleep 2 | |
232 | ||
233 | # We're now stopped at a permanent breakpoint, with a | |
234 | # signal pending. | |
235 | gdb_breakpoint "test_signal_nested_done" | |
236 | gdb_continue_to_breakpoint "test_signal_nested_done" | |
237 | ||
238 | # Ensure that the handler did run. There's one call to | |
239 | # test in the mainline code, and another in the signal | |
240 | # handler. | |
241 | gdb_test "p counter" " = 2" | |
242 | } | |
243 | ||
244 | if [can_single_step_to_signal_handler] { | |
245 | ||
246 | with_test_prefix "stepi signal with handler" { | |
247 | delete_breakpoints | |
248 | ||
249 | gdb_breakpoint "test_signal_with_handler" | |
250 | gdb_continue_to_breakpoint "test_signal_with_handler" | |
251 | ||
252 | gdb_breakpoint "$line_bp" | |
253 | ||
254 | gdb_test "continue" "Breakpoint .*" "stop at permanent breakpoint" | |
255 | ||
256 | gdb_test "queue-signal SIGUSR1" | |
257 | ||
258 | set test "single-step to handler" | |
259 | gdb_test_multiple "stepi" $test { | |
260 | -re "Program received signal SIGTRAP.*$gdb_prompt $" { | |
261 | fail $test | |
262 | } | |
263 | -re "handler .*$gdb_prompt $" { | |
264 | pass $test | |
265 | } | |
266 | } | |
267 | ||
268 | # Check that the mainline PC points at the permanent | |
269 | # breakpoint. | |
270 | gdb_test "up 2" "test .*" "up to mainline code" | |
271 | ||
272 | gdb_test "p /x \$pc" " = $address_bp" \ | |
273 | "mainline pc points at permanent breakpoint" | |
274 | ||
275 | gdb_test "continue" "Breakpoint .*" \ | |
276 | "stop at permanent breakpoint, out of handler" | |
277 | } | |
278 | ||
279 | with_test_prefix "stepi signal with no handler" { | |
280 | gdb_breakpoint "test_signal_no_handler" | |
281 | gdb_continue_to_breakpoint "test_signal_no_handler" | |
282 | ||
283 | gdb_test "continue" "Breakpoint .*" "stop at permanent breakpoint" | |
284 | ||
285 | gdb_test "queue-signal SIGUSR1" | |
286 | ||
287 | gdb_test "stepi" "after permanent bp .*" \ | |
288 | "single-step past permanent breakpoint" | |
289 | } | |
290 | } | |
291 | } | |
292 | } | |
293 | ||
294 | foreach always_inserted {off on} { | |
295 | foreach sw_watchpoint {0 1} { | |
296 | with_test_prefix "always_inserted=$always_inserted, sw_watchpoint=$sw_watchpoint" { | |
297 | test $always_inserted $sw_watchpoint | |
298 | } | |
299 | } | |
300 | } |