1# Copyright 1998-2017 Free Software Foundation, Inc. 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 was written by Michael Snyder (msnyder@cygnus.com) 17 18load_lib "trace-support.exp" 19 20 21gdb_exit 22gdb_start 23 24standard_testfile actions.c 25if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" $binfile \ 26 executable {debug nowarnings}] != "" } { 27 untested "failed to compile" 28 return -1 29} 30gdb_reinitialize_dir $srcdir/$subdir 31 32# If testing on a remote host, download the source file. 33# remote_download host $srcdir/$subdir/$srcfile 34 35gdb_file_cmd $binfile 36 37# 38# test while-stepping command 39# 40 41gdb_delete_tracepoints 42set trcpt1 [gdb_gettpnum gdb_c_test] 43if { $trcpt1 <= 0 } then { 44 fail "could not find gdb_c_test function" 45 return 46} 47 48# 5.12 basic while-stepping command (collect regs) 49 50gdb_test "info tracepoints" \ 51 "Num Type\[ \]+Disp Enb Address\[ \]+What.* 52\[0-9\]+\[\t \]+tracepoint keep y.* in gdb_c_test at .*$srcfile:\[0-9\]+. 53\[\t \]+not installed on target." \ 54 "5.12: set a tracepoint, stepcount is zero" 55 56set stepcount 12 57 58gdb_trace_setactions "5.12: set stepcount to $stepcount" \ 59 "" \ 60 "while-stepping $stepcount" "" \ 61 "collect \$regs" "^$" \ 62 "end" "" 63 64gdb_test "info tracepoints" \ 65 "Num Type\[ \]+Disp Enb Address\[ \]+What.* 66\[0-9\]+\[\t \]+tracepoint keep y.* in gdb_c_test at .*$srcfile:\[0-9\]+. 67\[\t \]+while-stepping 12.*" \ 68 "5.12: info trace shows \"while-stepping\"" 69 70# 5.13 step out of context while collecting local variable 71# [deferred to dynamic test section] 72 73proc while_stepping_bogus_arg { bogus msgstring } { 74 global gdb_prompt 75 76 gdb_trace_setactions "$msgstring" \ 77 "" \ 78 "while-stepping $bogus" ".*while-stepping step count" 79} 80 81# 5.14 while-stepping (no argument) 82 83while_stepping_bogus_arg "" "5.14: while-stepping null stepcount" 84 85# 5.15 while-stepping (zero stepcount) 86 87while_stepping_bogus_arg "0" "5.15: while-stepping rejects zero stepcount" 88 89# 5.16 while-stepping without collecting anything 90gdb_trace_setactions "5.16: step without collecting anything" \ 91 "" \ 92 "while-stepping $stepcount" "^$" \ 93 "end" "" 94 95gdb_test "info tracepoints" \ 96 "Num Type\[ \]+Disp Enb Address\[ \]+What.* 97\[0-9\]+\[\t \]+tracepoint keep y.* in gdb_c_test at .*$srcfile:\[0-9\]+. 98.*while-stepping $stepcount.* 99.*end.*" \ 100 "5.16: confirm actions, step without collecting anything" 101 102# Can't use runto_main here, because that would delete the tracepoints 103# created above. 104 105# Load the binary to the target too. 106gdb_load $binfile 107 108gdb_breakpoint "main" 109gdb_run_cmd 110if {[gdb_test "" "Breakpoint .*"] != 0} { 111 fail "can't run to main" 112 return -1 113} 114 115if ![gdb_target_supports_trace] { 116 unsupported "target does not support trace" 117 return -1 118} 119 120gdb_trace_setactions "set stepcount to $stepcount" \ 121 "" \ 122 "while-stepping $stepcount" "" \ 123 "collect \$regs " "^$" \ 124 "collect \$locals " "^$" \ 125 "end" "" 126 127proc check_tracepoint { data_source } { 128 with_test_prefix "$data_source" { 129 global srcfile 130 global stepcount 131 132 gdb_test "info tracepoints" \ 133 "Num Type\[ \]+Disp Enb Address\[ \]+What.* 134\[0-9\]+\[\t \]+tracepoint keep y.* in gdb_c_test at .*$srcfile:\[0-9\]+. 135\[\t \]+while-stepping $stepcount.* 136\[\t \]+collect \\\$regs.* 137\[\t \]+collect \\\$locals.* 138\[\t \]+end.*" 139 } 140} 141 142gdb_test_no_output "tstart" 143check_tracepoint "live" 144gdb_test_no_output "tstop" 145set tracefile [standard_output_file ${testfile}] 146gdb_test "tsave ${tracefile}.tf" \ 147 "Trace data saved to file '${tracefile}.tf'\.\\r" \ 148 "save tfile trace file" 149gdb_test "tsave -ctf ${tracefile}.ctf" \ 150 "Trace data saved to directory '${tracefile}.ctf'\.\\r" \ 151 "save ctf trace file" 152 153# Restart GDB and read the trace data in tfile target. 154gdb_exit 155gdb_start 156gdb_reinitialize_dir $srcdir/$subdir 157gdb_file_cmd $binfile 158gdb_test "target tfile ${tracefile}.tf" ".*" \ 159 "change to tfile target" 160check_tracepoint "tfile" 161 162# Try to read ctf data if GDB supports. 163set gdb_can_read_ctf_data 0 164gdb_test_multiple "target ctf" "" { 165 -re "Undefined target command: \"ctf\"\. Try \"help target\"\.\r\n$gdb_prompt $" { 166 set gdb_can_read_ctf_data 0 167 } 168 -re "No CTF directory specified.*\r\n$gdb_prompt $" { 169 set gdb_can_read_ctf_data 1 170 } 171} 172 173if { $gdb_can_read_ctf_data } { 174 gdb_exit 175 gdb_start 176 gdb_reinitialize_dir $srcdir/$subdir 177 gdb_file_cmd $binfile 178 gdb_test "target ctf ${tracefile}.ctf" ".*" \ 179 "change to ctf target" 180 check_tracepoint "ctf" 181} 182