1 # Copyright 1998-2018 Free Software Foundation, Inc.
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.
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.
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/>.
16 # This file was written by Michael Snyder (msnyder@cygnus.com)
18 load_lib "trace-support.exp"
24 standard_testfile actions.c
25 if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
26 executable {debug nowarnings}] != "" } {
27 untested "failed to compile"
31 gdb_test "tstop" ".*" ""
32 gdb_test "tfind none" ".*" ""
34 gdb_reinitialize_dir $srcdir/$subdir
36 if { ![gdb_target_supports_trace] } then {
37 unsupported "current target does not support trace"
44 # If testing on a remote host, download the source file.
45 # remote_download host $srcdir/$subdir/$srcfile
48 # test general reporting of trace experiment results
65 set gdb_recursion_test_baseline [gdb_find_recursion_test_baseline $srcfile]
66 if { $gdb_recursion_test_baseline == -1 } {
67 fail "could not find gdb_recursion_test function"
73 gdb_test_multiple "list $gdb_recursion_test_baseline, +12" "" {
74 -re "\[\r\n\](\[0-9\]+)\[^\r\n\]+gdbtestline 1 " {
75 set testline1 $expect_out(1,string)
78 -re "\[\r\n\](\[0-9\]+)\[^\r\n\]+gdbtestline 2 " {
79 set testline2 $expect_out(1,string)
82 -re "\[\r\n\](\[0-9\]+)\[^\r\n\]+gdbtestline 3 " {
83 set testline3 $expect_out(1,string)
86 -re "\[\r\n\](\[0-9\]+)\[^\r\n\]+gdbtestline 4 " {
87 set testline4 $expect_out(1,string)
90 -re "\[\r\n\](\[0-9\]+)\[^\r\n\]+gdbtestline 5 " {
91 set testline5 $expect_out(1,string)
94 -re "\[\r\n\](\[0-9\]+)\[^\r\n\]+gdbtestline 6 " {
95 set testline6 $expect_out(1,string)
98 -re ".*$gdb_prompt $" {
99 if { ($testline1 == 0) || ($testline2 == 0) || ($testline3 == 0) || ($testline4 == 0) || ($testline5 == 0) || ($testline6 == 0) } {
100 untested "unexpected testline values"
102 all tests in this module will fail."
106 untested "couldn't match pattern"
108 all tests in this module will fail."
112 if { $return_me == 1 } then {
117 # Setup trace experiment. This will involve:
118 # 1) a tracepoint where nothing is collected
119 # 2) a tracepoint where only regs are collected
120 # 3) a tracepoint where only args are collected
121 # 4) a tracepoint where only locals are collected
122 # 5) a tracepoint where some amount of stack memory is collected.
123 # 6) a tracepoint where some expressions are collected.
126 gdb_delete_tracepoints
127 set tdp1 [gdb_gettpnum $testline1]
128 set tdp2 [gdb_gettpnum $testline2]
129 set tdp3 [gdb_gettpnum $testline3]
130 set tdp4 [gdb_gettpnum $testline4]
131 set tdp5 [gdb_gettpnum $testline5]
132 set tdp6 [gdb_gettpnum $testline6]
134 if { $tdp1 <= 0 || $tdp2 <= 0 || $tdp3 <= 0 || \
135 $tdp4 <= 0 || $tdp5 <= 0 || $tdp6 <= 0 } then {
136 fail "setting tracepoints failed"
140 gdb_trace_setactions "9.x: setup TP to collect regs" \
142 "collect \$regs" "^$"
145 gdb_trace_setactions "9.x: setup TP to collect args" \
147 "collect \$args" "^$"
149 gdb_trace_setactions "9.x: setup TP to collect locals" \
151 "collect \$locs" "^$"
153 gdb_trace_setactions "9.x: setup TP to collect stack memory" \
155 "collect \$$fpreg, \*\(void \*\*\) \$$spreg @ 64" "^$"
157 gdb_trace_setactions "9.x: setup TP to collect expressions" \
159 "collect gdb_char_test, gdb_short_test, gdb_long_test" "^$"
161 gdb_test "tstart" ".*" ""
163 gdb_breakpoint "end" qualified
164 gdb_test "continue" \
165 "Continuing.*Breakpoint $decimal, end.*" \
166 "run trace experiment"
168 gdb_test "tstop" ".*" ""
170 gdb_tfind_test "9.1: init: make sure not debugging any trace frame" \
175 gdb_test "help tdump" "Print everything collected at the current.*" \
178 # Check the collected trace data from different sources, such as live
179 # inferior and tfile.
181 proc use_collected_data { data_source } {
182 with_test_prefix "${data_source}" {
183 global tdp1 tdp2 tdp3 tdp4 tdp5 tdp6
184 global testline1 testline2 testline3 testline4 testline5 testline6
185 global pcreg fpreg spreg
186 global srcfile srcdir subdir binfile
188 global decimal hex gdb_prompt
190 # 9.1 test the tdump command
195 gdb_tfind_test "9.1: find frame for TP $tdp1" "tracepoint $tdp1" \
196 "\$tracepoint" "$tdp1"
198 # Nothing was collected at tdp1, so this tdump should be empty.
200 "Data collected at tracepoint $tdp1, trace frame $decimal:" \
201 "9.1: tdump, nothing collected"
203 gdb_tfind_test "9.1: find frame for TP $tdp2" "tracepoint $tdp2" \
204 "\$tracepoint" "$tdp2"
206 # regs were collected at tdp2.
207 # How to match for the output of "info registers" on an unknown architecture?
208 # For now, assume that most architectures have a register called "pc".
211 "\[\r\n\]$pcreg .*" \
212 "9.1: tdump, regs collected"
214 gdb_tfind_test "9.1: find frame for TP $tdp3" "tracepoint $tdp3" \
215 "\$tracepoint" "$tdp3"
217 # args were collected at tdp3
219 "depth = 3.*q1 = 2.*q2 = 2.*q3 = 3.*q4 = 4.*q5 = 5.*q6 = 6" \
220 "9.1: tdump, args collected"
222 gdb_tfind_test "9.1: find frame for TP $tdp4" "tracepoint $tdp4" \
223 "\$tracepoint" "$tdp4"
225 # locals were collected at tdp4
228 "9.1: tdump, locals collected"
230 gdb_tfind_test "9.1: find frame for TP $tdp5" "tracepoint $tdp5" \
231 "\$tracepoint" "$tdp5"
233 # stack was collected at tdp5, plus the frame pointer
235 ".$fpreg = .*$spreg @ 64 = .*" \
236 "9.1: tdump, memrange collected"
238 gdb_tfind_test "9.1: find frame for TP $tdp6" "tracepoint $tdp6" \
239 "\$tracepoint" "$tdp6"
241 # globals were collected at tdp6
243 "gdb_char_test = 1.*gdb_short_test = 2.*gdb_long_test = 3" \
244 "9.1: tdump, global variables collected"
246 # 9.2 test tdump with arguments
247 # [no go, tdump doesn't have any arguments]
256 gdb_tfind_test "11.x, 12.1: find start frame" "start" "0"
259 # 11.x test built-in trace variables $trace_frame, $trace_line etc.
262 gdb_test "printf \"x %d x\\n\", \$trace_frame" "x 0 x" \
263 "11.1: test \$trace_frame"
265 gdb_test "printf \"x %d x\\n\", \$tracepoint" "x $tdp1 x" \
266 "11.2: test \$tracepoint"
268 gdb_test "printf \"x %d x\\n\", \$trace_line" "x $testline1 x" \
269 "11.3: test \$trace_line"
271 gdb_test_multiple "print \$trace_file" "11.4: test \$trace_file" {
272 -re "\\$\[0-9\]+ = \"$srcfile\"\[\r\n\]+$gdb_prompt $" {
273 pass "11.4: test \$trace_file"
275 -re "\\$\[0-9\]+ = \"$srcdir/$subdir/$srcfile\"\[\r\n\]+$gdb_prompt $" {
276 pass "11.4: test \$trace_file"
280 #gdb_test "print \$trace_file" "\"$srcdir/$subdir/$srcfile\"" \
281 # "11.4: test \$trace_file"
284 # 12.x test report generation using arbitrary GDB commands, loops etc.
287 gdb_test_multiple "while \$trace_frame != -1\n output \$trace_file\n printf \", line \%d \(tracepoint #\%d\)\\n\", \$trace_line, \$tracepoint\n tfind\n end" "12.1: trace report #1" {
291 -re "^Found trace frame \[0-9\]+, tracepoint \[0-9\]+\r\n" {
294 -re "^\[^\r\n\]* line $testline1 .tracepoint .$tdp1\\)\r\n" {
295 set linecount1 [expr $linecount1 + 1]
298 -re "^\[^\r\n\]* line $testline2 .tracepoint .$tdp2\\)\r\n" {
299 set linecount2 [expr $linecount2 + 1]
302 -re "^\[^\r\n\]* line $testline3 .tracepoint .$tdp3\\)\r\n" {
303 set linecount3 [expr $linecount3 + 1]
306 -re "^\[^\r\n\]* line $testline4 .tracepoint .$tdp4\\)\r\n" {
307 set linecount4 [expr $linecount4 + 1]
310 -re "^\[^\r\n\]* line $testline5 .tracepoint .$tdp5\\)\r\n" {
311 set linecount5 [expr $linecount5 + 1]
314 -re "^\[^\r\n\]* line $testline6 .tracepoint .$tdp6\\)\r\n" {
315 set linecount6 [expr $linecount6 + 1]
318 -re "^No trace frame found\r\n$gdb_prompt $" {
319 if { ($linecount1 < 4) || ($linecount2 < 4) || ($linecount3 < 4) || ($linecount4 < 4) || ($linecount5 < 4) || ($linecount6 < 4) } {
320 fail "12.1: trace report #1"
322 pass "12.1: trace report #1"
327 gdb_tfind_test "12.2: tfind end, selects no frame" "end" "-1"
328 gdb_tfind_test "12.2: find first TDP #2 frame" "tracepoint $tdp2" \
329 "\$tracepoint" "$tdp2"
333 gdb_test_multiple "while \$trace_frame != -1\n printf \"tracepoint #\%d, FP 0x\%08x, SP 0x\%08x, PC 0x%08x\\n\", \$tracepoint, \$fp, \$sp, \$pc\n tfind tracepoint\n end" "12.2: trace report #2" {
334 -re "tracepoint #$tdp2, FP $hex, SP $hex, PC $hex" {
335 set linecount2 [expr $linecount2 + 1]
338 -re ".*$gdb_prompt $" {
339 if { ($linecount2 < 4) } {
340 fail "12.2: trace report #2"
342 pass "12.2: trace report #2"
347 gdb_tfind_test "12.3: tfind end, selects no frame" "end" "-1"
348 gdb_tfind_test "12.3: find first TDP #3 frame" "tracepoint $tdp3" \
349 "\$tracepoint" "$tdp3"
353 gdb_test_multiple "while \$trace_frame != -1\n printf \"TDP #\%d, frame \%d: depth = \%d, q1 = \%d\\n\", \$tracepoint, \$trace_frame, depth, q1\n tfind tracepoint\n end" "12.3: trace report #3" {
354 -re "TDP #$tdp3, frame $decimal: depth = $decimal, q1 = $decimal" {
355 set linecount3 [expr $linecount3 + 1]
358 -re ".*$gdb_prompt $" {
359 if { ($linecount3 < 4) } {
360 fail "12.3: trace report #3"
362 pass "12.3: trace report #3"
367 gdb_tfind_test "12.4: tfind end, selects no frame" "end" "-1"
368 gdb_tfind_test "12.4: find first TDP #6 frame" "tracepoint $tdp6" \
369 "\$tracepoint" "$tdp6"
373 gdb_test_multiple "while \$trace_frame != -1\n printf \"TDP #\%d, frame %d: char_test = \%d, long_test = \%d\\n\", \$tracepoint, \$trace_frame, gdb_char_test, gdb_long_test\n tfind tracepoint\n end" "12.4: trace report #4" {
374 -re "TDP #$tdp6, frame $decimal: char_test = $arg1, long_test = $arg3" {
375 set linecount6 [expr $linecount6 + 1]
378 -re ".*$gdb_prompt $" {
379 if { ($linecount6 < 4) } {
380 fail "12.4: trace report #4"
382 pass "12.4: trace report #4"
387 # There is always a thread of an inferior, either a live one or
389 gdb_test "info threads" "\\* ${decimal} (process|Thread) \[0-9\.\]+\[ \t\].*"
390 gdb_test "info inferiors" "\\* 1 process ${decimal} \[ \t\]+${binfile}.*"
394 use_collected_data "live"
397 gdb_tfind_test "finished: make sure not debugging any trace frame" \
400 # Save trace frames to tfile.
401 set tracefile [standard_output_file ${testfile}]
402 gdb_test "tsave ${tracefile}.tf" \
403 "Trace data saved to file '${tracefile}.tf'.*" \
404 "save tfile trace file"
406 # Save trace frames to ctf.
407 gdb_test "tsave -ctf ${tracefile}.ctf" \
408 "Trace data saved to directory '${tracefile}.ctf'.*" \
409 "save ctf trace file"
411 # Change target to tfile.
412 set test "change to tfile target"
413 gdb_test_multiple "target tfile ${tracefile}.tf" "$test" {
414 -re "A program is being debugged already. Kill it. .y or n. " {
418 -re "$gdb_prompt $" {
422 # Test the collected trace frames from tfile.
423 use_collected_data "tfile"
425 # Try to read ctf data if GDB supports.
426 gdb_test_multiple "target ctf ${tracefile}.ctf" "" {
427 -re "Undefined target command: \"ctf ${tracefile}.ctf\"\. Try \"help target\"\.\r\n$gdb_prompt $" {
429 -re ".*\r\n$gdb_prompt $" {
430 use_collected_data "ctf"