Commit | Line | Data |
---|---|---|
618f726f | 1 | # Copyright 2011-2016 Free Software Foundation, Inc. |
bfccc43c YQ |
2 | # This program is free software; you can redistribute it and/or modify |
3 | # it under the terms of the GNU General Public License as published by | |
4 | # the Free Software Foundation; either version 3 of the License, or | |
5 | # (at your option) any later version. | |
6 | # | |
7 | # This program is distributed in the hope that it will be useful, | |
8 | # but WITHOUT ANY WARRANTY; without even the implied warranty of | |
9 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
10 | # GNU General Public License for more details. | |
11 | # | |
12 | # You should have received a copy of the GNU General Public License | |
13 | # along with this program. If not, see <http://www.gnu.org/licenses/>. | |
14 | ||
4ec70201 | 15 | load_lib "trace-support.exp" |
bfccc43c | 16 | |
bfccc43c YQ |
17 | if {[skip_shlib_tests]} { |
18 | return 0 | |
19 | } | |
20 | ||
497a5eb0 | 21 | standard_testfile |
bfccc43c YQ |
22 | set libfile1 "pendshr1" |
23 | set libfile2 "pendshr2" | |
24 | set executable $testfile | |
bfccc43c YQ |
25 | set libsrc1 $srcdir/$subdir/$libfile1.c |
26 | set libsrc2 $srcdir/$subdir/$libfile2.c | |
497a5eb0 TT |
27 | set lib_sl1 [standard_output_file $libfile1.sl] |
28 | set lib_sl2 [standard_output_file $libfile2.sl] | |
bfccc43c YQ |
29 | |
30 | set lib_opts [gdb_target_symbol_prefix_flags] | |
31 | ||
32 | if { [gdb_compile_shlib $libsrc1 $lib_sl1 $lib_opts] != "" | |
33 | || [gdb_compile_shlib $libsrc2 $lib_sl2 $lib_opts] != ""} { | |
84c93cd5 | 34 | untested "failed to compile shared library" |
bfccc43c YQ |
35 | return -1 |
36 | } | |
37 | ||
38 | set exec_opts [list debug shlib=$lib_sl1 shlib_load] | |
39 | if { [gdb_compile $srcdir/$subdir/$srcfile $binfile executable $exec_opts] != "" } { | |
84c93cd5 | 40 | untested "failed to compile" |
bfccc43c YQ |
41 | return -1 |
42 | } | |
43 | ||
44 | clean_restart $executable | |
45 | ||
d9019901 SM |
46 | gdb_load_shlib $lib_sl1 |
47 | gdb_load_shlib $lib_sl2 | |
bfccc43c YQ |
48 | |
49 | if ![runto_main] { | |
bc6c7af4 | 50 | fail "can't run to main to check for trace support" |
bfccc43c YQ |
51 | return -1 |
52 | } | |
53 | ||
54 | if ![gdb_target_supports_trace] { | |
bc6c7af4 | 55 | unsupported "current target does not support trace" |
ae59b1da | 56 | return -1 |
bfccc43c YQ |
57 | } |
58 | ||
59 | # Verify pending tracepoint is resolved to running to main. | |
60 | ||
0a251e08 YQ |
61 | proc pending_tracepoint_resolved { trace_type } { |
62 | with_test_prefix "$trace_type resolved" { | |
63 | global srcdir | |
64 | global subdir | |
65 | global binfile | |
66 | global srcfile | |
67 | global lib_sl1 | |
68 | ||
69 | # Start with a fresh gdb. | |
70 | gdb_exit | |
71 | gdb_start | |
72 | gdb_reinitialize_dir $srcdir/$subdir | |
73 | ||
74 | gdb_test_multiple "$trace_type set_point1" "set pending tracepoint" { | |
75 | -re ".*Make \(fast |\)tracepoint pending.*y or \\\[n\\\]. $" { | |
76 | gdb_test "y" "\(Fast t|T\)racepoint.*set_point1.*pending." \ | |
77 | "set pending tracepoint (without symbols)" | |
78 | } | |
bfccc43c | 79 | } |
bfccc43c | 80 | |
0a251e08 YQ |
81 | gdb_test "info trace" \ |
82 | "Num Type\[ \]+Disp Enb Address\[ \]+What.* | |
bfccc43c | 83 | \[0-9\]+\[\t \]+\(fast |\)tracepoint\[ \]+keep y.*PENDING.*set_point1.*" \ |
0a251e08 | 84 | "single pending tracepoint info (without symbols)" |
bfccc43c | 85 | |
0a251e08 | 86 | gdb_load ${binfile} |
bfccc43c | 87 | |
0a251e08 YQ |
88 | gdb_test "break main" "Breakpoint.*at.* file .*$srcfile, line.*" \ |
89 | "breakpoint function" | |
bfccc43c | 90 | |
0a251e08 YQ |
91 | gdb_run_cmd |
92 | gdb_test "" "Breakpoint 2, main.*" | |
bfccc43c | 93 | |
0a251e08 YQ |
94 | # Run to main which should resolve a pending tracepoint |
95 | gdb_test "info trace" \ | |
96 | "Num Type\[ \]+Disp Enb Address\[ \]+What.* | |
bfccc43c | 97 | \[0-9\]+\[\t \]+\(fast |\)tracepoint\[ \]+keep y.*pendfunc.*" \ |
0a251e08 YQ |
98 | "single tracepoint info" |
99 | } | |
100 | } | |
bfccc43c YQ |
101 | |
102 | # Verify pending tracepoint is resolved and works as expected. | |
103 | ||
0a251e08 YQ |
104 | proc pending_tracepoint_works { trace_type } { |
105 | with_test_prefix "$trace_type works" { | |
106 | global executable | |
107 | global srcfile | |
108 | global lib_sl1 | |
109 | global gdb_prompt | |
bfccc43c | 110 | |
0a251e08 YQ |
111 | # Restart with a fresh gdb. |
112 | clean_restart $executable | |
bfccc43c | 113 | |
0a251e08 | 114 | # Test setting and querying pending tracepoints |
bfccc43c | 115 | |
0a251e08 YQ |
116 | gdb_test_multiple "$trace_type set_point1" "set pending tracepoint" { |
117 | -re ".*Make \(fast |\)tracepoint pending.*y or \\\[n\\\]. $" { | |
118 | gdb_test "y" \ | |
119 | "\(Fast t|T\)racepoint.*set_point1.*pending." \ | |
120 | "set pending tracepoint" | |
121 | } | |
bfccc43c | 122 | } |
bfccc43c | 123 | |
0a251e08 YQ |
124 | gdb_test "info trace" \ |
125 | "Num Type\[ \]+Disp Enb Address\[ \]+What.* | |
bfccc43c | 126 | \[0-9\]+\[\t \]+\(fast |\)tracepoint\[ \]+keep y.*PENDING.*set_point1.*" \ |
0a251e08 | 127 | "single pending tracepoint info" |
bfccc43c | 128 | |
0a251e08 YQ |
129 | # Run to main which should resolve a pending tracepoint |
130 | gdb_test "break main" "Breakpoint.*at.* file .*$srcfile, line.*" \ | |
131 | "breakpoint function" | |
132 | gdb_run_cmd | |
133 | gdb_test "" "Breakpoint 2, main.*" | |
bfccc43c | 134 | |
0a251e08 YQ |
135 | gdb_test "break marker" "Breakpoint.*at.* file .*$srcfile, line.*" \ |
136 | "breakpoint on marker" | |
bfccc43c | 137 | |
0a251e08 YQ |
138 | set test "start trace experiment" |
139 | gdb_test_multiple "tstart" $test { | |
140 | -re "^tstart\r\n$gdb_prompt $" { | |
141 | pass $test | |
142 | } | |
143 | -re "Target returns error code .* too far .*$gdb_prompt $" { | |
144 | if [string equal $trace_type "ftrace"] { | |
145 | # The target was unable to install the fast tracepoint | |
146 | # (e.g., jump pad too far from tracepoint). | |
147 | pass "$test (too far)" | |
148 | # Skip the rest of the tests. | |
149 | return | |
150 | } else { | |
151 | fail $test | |
152 | } | |
f4647387 | 153 | } |
f4647387 | 154 | |
0a251e08 | 155 | } |
bfccc43c | 156 | |
bd0a71fa | 157 | gdb_test "continue" "Continuing.\r\n\r\n(Thread .* hit )?Breakpoint.*marker.*at.*$srcfile.*" \ |
0a251e08 | 158 | "continue to marker" |
f4647387 | 159 | |
0a251e08 | 160 | gdb_test "tstop" "\[\r\n\]+" "stop trace experiment" |
bfccc43c | 161 | |
0a251e08 YQ |
162 | gdb_test "tfind start" "#0 .*" "tfind test frame 0" |
163 | gdb_test "tfind" "Found trace frame 1, tracepoint 1.*" \ | |
164 | "tfind test frame 1" | |
165 | gdb_test "tfind" "Found trace frame 2, tracepoint 1.*" \ | |
166 | "tfind test frame 2" | |
167 | gdb_test "tfind" \ | |
168 | "Target failed to find requested trace frame..*" \ | |
169 | "tfind test frame" | |
170 | } | |
171 | } | |
bfccc43c YQ |
172 | |
173 | # Verify pending tracepoint is resolved during trace. | |
174 | ||
6a5870ce | 175 | proc pending_tracepoint_resolved_during_trace { trace_type } \ |
0f4d39d5 | 176 | { with_test_prefix "$trace_type resolved_in_trace" \ |
6a5870ce | 177 | { |
bfccc43c YQ |
178 | global executable |
179 | global srcfile | |
180 | global gdb_prompt | |
181 | global lib_sl1 | |
bfccc43c YQ |
182 | |
183 | # Start with a fresh gdb. | |
184 | clean_restart $executable | |
185 | if ![runto_main] { | |
bc6c7af4 | 186 | fail "can't run to main" |
bfccc43c YQ |
187 | return -1 |
188 | } | |
189 | ||
190 | gdb_test_multiple "$trace_type set_point2" "set pending tracepoint on set_point2" { | |
191 | -re ".*Make \(fast |\)tracepoint pending.*y or \\\[n\\\]. $" { | |
192 | gdb_test "y" "\(Fast t|T\)racepoint.*set_point2.*pending." \ | |
193 | "set pending tracepoint (without symbols)" | |
194 | } | |
195 | } | |
196 | ||
197 | gdb_test "info trace" \ | |
198 | "Num Type\[ \]+Disp Enb Address\[ \]+What.* | |
199 | \[0-9\]+\[\t \]+\(fast |\)tracepoint\[ \]+keep y.*PENDING.*set_point2.*" \ | |
200 | "single pending tracepoint on set_point2" | |
201 | ||
202 | gdb_test "break marker" "Breakpoint.*at.* file .*$srcfile, line.*" \ | |
203 | "breakpoint on marker" | |
204 | ||
205 | gdb_test_no_output "tstart" "start trace experiment" | |
206 | ||
bd0a71fa | 207 | gdb_test "continue" "Continuing.\r\n\r\n(Thread .* hit )?Breakpoint.*marker.*at.*pending.c.*" \ |
bfccc43c YQ |
208 | "continue to marker 1" |
209 | ||
f4647387 YQ |
210 | set test "continue to marker 2" |
211 | gdb_test_multiple "continue" $test { | |
212 | -re "Target returns error code .* too far .*$gdb_prompt $" { | |
213 | if [string equal $trace_type "ftrace"] { | |
214 | # Expected if the target was unable to install the | |
215 | # fast tracepoint (e.g., jump pad too far from | |
216 | # tracepoint). | |
217 | pass "$test (too far)" | |
218 | # Skip the rest of the tests. | |
219 | return | |
220 | } else { | |
221 | fail $test | |
222 | } | |
bfccc43c | 223 | } |
cc5fd9ab | 224 | -re "Continuing.\r\n(Reading .* from remote target...\r\n)?\r\n(Thread .* hit )?Breakpoint.*marker.*at.*$srcfile.*$gdb_prompt $" { |
f4647387 | 225 | pass $test |
bfccc43c YQ |
226 | } |
227 | } | |
228 | ||
229 | gdb_test "tstop" "\[\r\n\]+" "stop trace experiment" | |
230 | ||
231 | # tracepoint should be resolved. | |
232 | gdb_test "info trace" \ | |
233 | "Num Type\[ \]+Disp Enb Address\[ \]+What.* | |
234 | \[0-9\]+\[\t \]+\(fast |\)tracepoint\[ \]+keep y.*pendfunc2.*" \ | |
235 | "tracepoint is resolved" | |
236 | ||
237 | gdb_test "tfind start" "#0 .*" "tfind test frame 0" | |
238 | gdb_test "tfind" "Target failed to find requested trace frame..*" "tfind test frame" | |
6a5870ce | 239 | }} |
bfccc43c YQ |
240 | |
241 | # Verify pending tracepoint is resolved and installed during trace. | |
242 | ||
6a5870ce | 243 | proc pending_tracepoint_installed_during_trace { trace_type } \ |
0f4d39d5 | 244 | { with_test_prefix "$trace_type installed_in_trace" \ |
6a5870ce | 245 | { |
bfccc43c YQ |
246 | global executable |
247 | global srcfile | |
248 | global lib_sl1 | |
249 | global gdb_prompt | |
bfccc43c YQ |
250 | global hex |
251 | ||
bfccc43c YQ |
252 | # Start with a fresh gdb. |
253 | clean_restart $executable | |
254 | if ![runto_main] { | |
bc6c7af4 | 255 | fail "can't run to main" |
bfccc43c YQ |
256 | return -1 |
257 | } | |
258 | ||
259 | gdb_test "next" ".*" | |
260 | gdb_test "trace main" "Tracepoint \[0-9\] at .*" "set tracepoint on main" | |
261 | ||
262 | gdb_test "break marker" "Breakpoint.*at.* file .*$srcfile, line.*" \ | |
263 | "breakpoint on marker" | |
264 | ||
265 | gdb_test_no_output "tstart" "start trace experiment" | |
266 | ||
bd0a71fa | 267 | gdb_test "continue" "Continuing.\r\n\r\n(Thread .* hit )?Breakpoint.*marker.*at.*${srcfile}.*" \ |
bfccc43c YQ |
268 | "continue to marker 1" |
269 | ||
270 | # Set a pending tracepoint during a tracing experiment. | |
271 | gdb_test_multiple "$trace_type set_point2" "set pending tracepoint on set_point2" { | |
272 | -re ".*Make \(fast |\)tracepoint pending.*y or \\\[n\\\]. $" { | |
273 | gdb_test "y" "\(Fast t|T\)racepoint.*set_point2.*pending." \ | |
274 | "set pending tracepoint" | |
275 | } | |
276 | } | |
277 | ||
278 | gdb_test "info trace" \ | |
279 | "Num Type\[ \]+Disp Enb Address\[ \]+What.* | |
280 | \[0-9\]+\[\t \]+\(fast |\)tracepoint\[ \t\]+keep y.*PENDING.*set_point2.*" \ | |
281 | "single pending tracepoint on set_point2" | |
282 | ||
f4647387 YQ |
283 | set test "continue to marker 2" |
284 | gdb_test_multiple "continue" $test { | |
285 | -re "Target returns error code .* too far .*$gdb_prompt $" { | |
286 | if [string equal $trace_type "ftrace"] { | |
287 | # Expected if the target was unable to install the | |
288 | # fast tracepoint (e.g., jump pad too far from | |
289 | # tracepoint). | |
290 | pass "$test (too far)" | |
291 | # Skip the rest of the tests. | |
292 | return | |
293 | } else { | |
294 | fail $test | |
295 | } | |
bfccc43c | 296 | } |
bd0a71fa | 297 | -re "Continuing.\r\n(Reading .* from remote target...\r\n)?\r\n(Thread .* hit )?Breakpoint.*marker.*at.*$srcfile.*$gdb_prompt $" { |
f4647387 YQ |
298 | pass $test |
299 | } | |
bfccc43c YQ |
300 | } |
301 | ||
302 | gdb_test "tstop" "\[\r\n\]+" "stop trace experiment" | |
303 | ||
304 | # tracepoint should be resolved. | |
305 | gdb_test "info trace" \ | |
306 | "Num Type\[ \]+Disp Enb Address\[ \]+What.* | |
307 | \[0-9\]+\[\t \]+\(fast |\)tracepoint\[ \]+keep y.*pendfunc2.*" \ | |
308 | "tracepoint is resolved" | |
309 | ||
b04fd3be MK |
310 | # powerpc64 shows "in .pendfunc2" here. |
311 | gdb_test "tfind start" "#0 $hex in .?pendfunc2 .*" "tfind test frame 0" | |
bfccc43c | 312 | gdb_test "tfind" "Target failed to find requested trace frame..*" "tfind test frame" |
6a5870ce | 313 | }} |
bfccc43c YQ |
314 | |
315 | ||
316 | # Verify pending tracepoint will no longer work if we disconnect during tracing. | |
317 | ||
6a5870ce | 318 | proc pending_tracepoint_disconnect_during_trace { trace_type } \ |
0f4d39d5 | 319 | { with_test_prefix "$trace_type disconn" \ |
6a5870ce | 320 | { |
bfccc43c YQ |
321 | global executable |
322 | global srcfile | |
323 | global lib_sl1 | |
bfccc43c YQ |
324 | global gdb_prompt |
325 | ||
bfccc43c YQ |
326 | # Start with a fresh gdb. |
327 | clean_restart $executable | |
328 | if ![runto_main] { | |
bc6c7af4 | 329 | fail "can't run to main" |
bfccc43c YQ |
330 | return -1 |
331 | } | |
332 | ||
333 | gdb_test_multiple "trace pendfunc3" "set pending tracepoint on set_point2" { | |
334 | -re ".*Make \(fast |\)tracepoint pending.*y or \\\[n\\\]. $" { | |
335 | gdb_test "y" "\(Fast t|T\)racepoint.*pendfunc3.*pending." \ | |
336 | "set pending tracepoint on pendfun3" | |
337 | } | |
338 | } | |
339 | ||
340 | gdb_test "break marker" "Breakpoint.*at.* file .*$srcfile, line.*" \ | |
341 | "breakpoint on marker" | |
342 | ||
343 | gdb_test_no_output "tstart" "start trace experiment" | |
344 | ||
bd0a71fa | 345 | gdb_test "continue" "Continuing.\r\n\r\n(Thread .* hit )?Breakpoint.*marker.*at.*pending.c.*" \ |
bfccc43c YQ |
346 | "continue to marker" |
347 | ||
348 | set test "disconnect with pending tracepoint" | |
349 | gdb_test_multiple "disconnect" $test { | |
350 | -re "warning: Pending tracepoints will not be resolved while GDB is disconnected.*Trace is running but will stop on detach; detach anyway\\? \\(y or n\\) $" { | |
351 | pass $test | |
352 | ||
353 | set test "disconnected" | |
354 | gdb_test_multiple "y" $test { | |
355 | -re "$gdb_prompt $" { | |
356 | pass "$test" | |
357 | } | |
358 | } | |
359 | } | |
360 | } | |
6a5870ce | 361 | }} |
bfccc43c YQ |
362 | |
363 | ||
364 | # Verify disconnect after pending tracepoint has been resolved. | |
365 | ||
6a5870ce | 366 | proc pending_tracepoint_disconnect_after_resolved { trace_type } \ |
0f4d39d5 | 367 | { with_test_prefix "$trace_type disconn_resolved" \ |
6a5870ce | 368 | { |
bfccc43c YQ |
369 | global executable |
370 | global srcfile | |
371 | global lib_sl1 | |
372 | global gdb_prompt | |
bfccc43c YQ |
373 | |
374 | # Start with a fresh gdb. | |
375 | clean_restart $executable | |
376 | if ![runto_main] { | |
bc6c7af4 | 377 | fail "can't run to main" |
bfccc43c YQ |
378 | return -1 |
379 | } | |
380 | ||
381 | gdb_test_multiple "trace set_point2" "set pending tracepoint on set_point2" { | |
382 | -re ".*Make \(fast |\)tracepoint pending.*y or \\\[n\\\]. $" { | |
383 | gdb_test "y" "\(Fast t|T\)racepoint.*set_point2.*pending." \ | |
384 | "set pending tracepoint on pendfun2" | |
385 | } | |
386 | } | |
387 | ||
388 | gdb_test "break marker" "Breakpoint.*at.* file .*$srcfile, line.*" \ | |
389 | "breakpoint on marker" | |
390 | ||
391 | gdb_test_no_output "tstart" "start trace experiment" | |
392 | ||
bd0a71fa | 393 | gdb_test "continue" "Continuing.\r\n\r\n(Thread .* hit )?Breakpoint.*marker.*at.*pending.c.*" \ |
bfccc43c | 394 | "continue to marker 1" |
bd0a71fa | 395 | gdb_test "continue" "Continuing.\r\n(Reading .* from remote target...\r\n)?\r\n(Thread .* hit )?Breakpoint.*marker.*at.*pending.c.*" \ |
bfccc43c YQ |
396 | "continue to marker 2" |
397 | ||
398 | # There should be no pending tracepoint, so no warning should be emitted. | |
399 | set test "disconnect with resolved tracepoint" | |
400 | gdb_test_multiple "disconnect" $test { | |
401 | -re "warning: Pending tracepoints will not be resolved while GDB is disconnected.*Trace is running but will stop on detach; detach anyway\\? \\(y or n\\) $" { | |
402 | fail $test | |
403 | } | |
404 | -re "Trace is running but will stop on detach; detach anyway\\? \\(y or n\\) $" { | |
405 | pass $test | |
406 | } | |
407 | } | |
408 | set test "disconnected" | |
409 | gdb_test_multiple "y" $test { | |
410 | -re "$gdb_prompt $" { | |
411 | pass "$test" | |
412 | } | |
413 | } | |
6a5870ce | 414 | }} |
bfccc43c YQ |
415 | |
416 | # Verify action works properly in resolved tracepoint. | |
417 | ||
6a5870ce | 418 | proc pending_tracepoint_with_action_resolved { trace_type } \ |
0f4d39d5 | 419 | { with_test_prefix "$trace_type action_resolved" \ |
6a5870ce | 420 | { |
bfccc43c YQ |
421 | global executable |
422 | global srcfile | |
423 | global lib_sl1 | |
424 | global gdb_prompt | |
6e7675a7 | 425 | global pcreg |
bfccc43c YQ |
426 | |
427 | # Start with a fresh gdb. | |
428 | clean_restart $executable | |
429 | if ![runto_main] { | |
bc6c7af4 | 430 | fail "can't run to main" |
bfccc43c YQ |
431 | return -1 |
432 | } | |
433 | ||
434 | gdb_test_multiple "$trace_type set_point2" "set pending tracepoint on set_point2" { | |
435 | -re ".*Make \(fast |\)tracepoint pending.*y or \\\[n\\\]. $" { | |
436 | gdb_test "y" "\(Fast t|T\)racepoint.*set_point2.*pending." \ | |
437 | "set pending tracepoint (without symbols)" | |
438 | } | |
439 | } | |
440 | ||
bfccc43c YQ |
441 | gdb_trace_setactions "set action for pending tracepoint" "" \ |
442 | "collect \$$pcreg" "^$" | |
443 | ||
444 | gdb_test "info trace" \ | |
445 | "Num Type\[ \]+Disp Enb Address\[ \]+What.* | |
446 | \[0-9\]+\[\t \]+\(fast |\)tracepoint\[ \]+keep y.*PENDING.*set_point2.*" \ | |
447 | "single pending tracepoint on set_point2" | |
448 | ||
449 | gdb_test "break marker" "Breakpoint.*at.* file .*$srcfile, line.*" \ | |
450 | "breakpoint on marker" | |
451 | ||
452 | gdb_test_no_output "tstart" "start trace experiment" | |
453 | ||
bd0a71fa | 454 | gdb_test "continue" "Continuing.\r\n\r\n(Thread .* hit )?Breakpoint.*marker.*at.*pending.c.*" \ |
bfccc43c YQ |
455 | "continue to marker 1" |
456 | ||
f4647387 YQ |
457 | set test "continue to marker 2" |
458 | gdb_test_multiple "continue" $test { | |
459 | -re "Target returns error code .* too far .*$gdb_prompt $" { | |
460 | if [string equal $trace_type "ftrace"] { | |
461 | # Expected if the target was unable to install the | |
462 | # fast tracepoint (e.g., jump pad too far from | |
463 | # tracepoint). | |
464 | pass "$test (too far)" | |
465 | # Skip the rest of the tests. | |
466 | return | |
467 | } else { | |
468 | fail $test | |
469 | } | |
470 | } | |
bd0a71fa | 471 | -re "Continuing.\r\n(Reading .* from remote target...\r\n)?\r\n(Thread .* hit )?Breakpoint.*marker.*at.*$srcfile.*$gdb_prompt $" { |
bfccc43c YQ |
472 | pass "continue to marker 2" |
473 | } | |
f4647387 | 474 | |
bfccc43c YQ |
475 | } |
476 | ||
477 | gdb_test "tstop" "\[\r\n\]+" "stop trace experiment" | |
478 | ||
479 | # tracepoint should be resolved. | |
480 | gdb_test "info trace" \ | |
481 | "Num Type\[ \]+Disp Enb Address\[ \]+What.* | |
482 | \[0-9\]+\[\t \]+\(fast |\)tracepoint\[ \]+keep y.*pendfunc2.*" \ | |
483 | "tracepoint is resolved" | |
484 | ||
485 | gdb_test "tfind start" "#0 .*" "tfind test frame 0" | |
486 | gdb_test "tdump" "Data collected at tracepoint .*, trace frame \[0-9\]:.*\\$${pcreg} = .*" | |
487 | gdb_test "tfind" "Target failed to find requested trace frame..*" "tfind test frame" | |
6a5870ce | 488 | }} |
bfccc43c YQ |
489 | |
490 | pending_tracepoint_resolved "trace" | |
491 | ||
492 | pending_tracepoint_works "trace" | |
493 | ||
494 | pending_tracepoint_resolved_during_trace "trace" | |
495 | ||
496 | pending_tracepoint_disconnect_during_trace "trace" | |
497 | ||
498 | pending_tracepoint_disconnect_after_resolved "trace" | |
499 | ||
500 | pending_tracepoint_with_action_resolved "trace" | |
501 | ||
502 | pending_tracepoint_installed_during_trace "trace" | |
503 | ||
504 | # Re-compile test case with IPA. | |
c0d4d1c0 | 505 | set libipa [get_in_proc_agent] |
d9019901 | 506 | gdb_load_shlib $libipa |
bfccc43c YQ |
507 | |
508 | lappend exec_opts "shlib=$libipa" | |
509 | ||
510 | if { [gdb_compile $srcdir/$subdir/$srcfile $binfile executable $exec_opts] != "" } { | |
84c93cd5 | 511 | untested "failed to compile with in-process agent library" |
bfccc43c YQ |
512 | return -1 |
513 | } | |
514 | ||
515 | pending_tracepoint_resolved "ftrace" | |
516 | pending_tracepoint_works "ftrace" | |
517 | pending_tracepoint_resolved_during_trace "ftrace" | |
518 | pending_tracepoint_disconnect_during_trace "ftrace" | |
519 | pending_tracepoint_disconnect_after_resolved "ftrace" | |
520 | pending_tracepoint_with_action_resolved "ftrace" | |
521 | pending_tracepoint_installed_during_trace "ftrace" |