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