1#   Copyright 1998 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 2 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, write to the Free Software
15# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
16
17# Please email any bugs, comments, and/or additions to this file to:
18# bug-gdb@prep.ai.mit.edu
19
20# This file was written by Michael Snyder (msnyder@cygnus.com)
21
22load_lib "trace-support.exp";
23
24if $tracelevel then {
25    strace $tracelevel
26}
27
28set prms_id 0
29set bug_id 0
30
31gdb_exit
32gdb_start
33if [istarget "m68k-*-elf"] then {
34    set srcfile gdb_c_test.c
35    set binfile [board_info target d490_binfile];
36} else {
37    set testfile "actions"
38    set srcfile ${testfile}.c
39    set binfile $objdir/$subdir/$testfile
40    if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
41	    executable {debug additional_flags=-w}] != "" } {
42	gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
43    }
44}
45gdb_reinitialize_dir $srcdir/$subdir
46
47# If testing on a remote host, download the source file.
48# remote_download host $srcdir/$subdir/$srcfile
49
50gdb_file_cmd $binfile
51
52# define relative source line numbers:
53# all subsequent line numbers are relative to this first one (baseline)
54set baseline  [gdb_find_recursion_test_baseline $srcfile];
55if { $baseline == -1 } then {
56    fail "Could not find gdb_recursion_test function"
57    return;
58}
59
60set testline1 [expr $baseline + 1]
61set testline2 [expr $baseline + 3]
62
63#
64# test "help tracepoints"
65#
66
67set helpcnt 0;
68send_gdb "help tracepoints\n"
69gdb_expect {
70    -re "Tracing of program execution without stopping the program." {
71	incr helpcnt;
72	exp_continue
73    }
74    -re "actions -- Specify the actions to be taken at a tracepoint" {
75	incr helpcnt;
76	exp_continue
77    }
78    -re "collect -- Specify one or more data items to be collected" {
79	incr helpcnt;
80	exp_continue
81    }
82    -re "delete tracepoints -- Delete specified tracepoints" {
83	incr helpcnt;
84	exp_continue
85    }
86    -re "end -- Ends a list of.*actions" {
87	incr helpcnt;
88	exp_continue
89    }
90    -re "info tracepoints -- Status of tracepoints" {
91	incr helpcnt;
92	exp_continue
93    }
94    -re "passcount -- Set the passcount for a tracepoint" {
95	incr helpcnt;
96	exp_continue
97    }
98    -re "save-tracepoints -- Save current tracepoint definitions" {
99	incr helpcnt;
100	exp_continue
101    }
102    -re "tdump -- Print everything collected at the current tracepoint" {
103	incr helpcnt;
104	exp_continue
105    }
106    -re "tfind -- Select a trace frame" {
107	incr helpcnt;
108	exp_continue
109    }
110    -re "tfind end -- Synonym for 'none'" {
111	incr helpcnt;
112	exp_continue
113    }
114    -re "tfind line -- Select a trace frame by line number" {
115	incr helpcnt;
116	exp_continue
117    }
118    -re "tfind none -- De-select any trace frame and resume 'live' debugging" {
119	incr helpcnt;
120	exp_continue
121    }
122    -re "tfind outside -- Select a trace frame whose PC is outside" {
123	incr helpcnt;
124	exp_continue
125    }
126    -re "tfind pc -- Select a trace frame by PC" {
127	incr helpcnt;
128	exp_continue
129    }
130    -re "tfind range -- Select a trace frame whose PC is in the given" {
131	incr helpcnt;
132	exp_continue
133    }
134    -re "tfind start -- Select the first trace frame in the trace buffer" {
135	incr helpcnt;
136	exp_continue
137    }
138    -re "tfind tracepoint -- Select a trace frame by tracepoint number" {
139	incr helpcnt;
140	exp_continue
141    }
142    -re "trace -- Set a tracepoint at a specified line or function or addr" {
143	incr helpcnt;
144	exp_continue
145    }
146    -re "tstart -- Start trace data collection" {
147	incr helpcnt;
148	exp_continue
149    }
150    -re "tstatus -- Display the status of the current trace data collection" {
151	incr helpcnt;
152	exp_continue
153    }
154    -re "tstop -- Stop trace data collection" {
155	incr helpcnt;
156	exp_continue
157    }
158    -re "while-stepping -- Specify single-stepping behavior at a tracepoint" {
159	incr helpcnt;
160	exp_continue
161    }
162    -re ".*$gdb_prompt $" {
163	if { $helpcnt == 21 } {
164	    pass "1.0: help tracepoints"
165	} else {
166	    warning "$helpcnt";
167	    fail "1.0: help tracepoints"
168	}
169    }
170}
171
172#
173# test trace command:
174#
175
176# 1.1 trace source line
177gdb_delete_tracepoints
178gdb_test "trace $srcfile:$testline2" \
179	"Tracepoint $decimal at $hex: file.*$srcfile, line $testline2." \
180	"1.1a: set tracepoint at sourceline"
181gdb_test "info trace" "in gdb_recursion_test.*$srcfile:$testline2" \
182	"1.1b: trace sourcefile:line"
183
184# 1.2 trace invalid source line
185gdb_delete_tracepoints
186gdb_test "trace $srcfile:99999" "No line 99999 in file \".*$srcfile\"." \
187	"1.2a: trace invalid line in sourcefile"
188gdb_test "info trace" "No tracepoints.*" \
189	"1.2b: reject invalid line in srcfile"
190
191# 1.3 trace line in invalid source file
192gdb_delete_tracepoints
193gdb_test "trace NoSuChFiLe.c:1" "No source file named NoSuChFiLe.c." \
194	"1.3a: trace invalid source file"
195gdb_test "info trace" "No tracepoints.*" \
196	"1.3b: reject invalid srcfile"
197
198# 1.4 trace function by name
199gdb_delete_tracepoints
200gdb_test "trace gdb_recursion_test" \
201	"Tracepoint $decimal at $hex: file.*$srcfile, line $testline1." \
202	"1.4a: trace function by name"
203gdb_test "info trace" "in gdb_recursion_test.*$srcfile:$testline1" \
204	"1.4b: trace function by name"
205
206# 1.5 trace non-existant function
207gdb_delete_tracepoints
208gdb_test "trace NoSuChFuNc" "Function \"NoSuChFuNc\" not defined." \
209	"1.5a: trace invalid function"
210gdb_test "info trace" "No tracepoints.*" \
211	"1.5b: reject invalid srcfile"
212
213# 1.6 trace at a specific address
214#     Collect the address of "gdb_asm_test", and use that.
215send_gdb "print gdb_asm_test\n"
216gdb_expect {
217    -re "\[$\]\[0-9\].*0x(\[0-9a-fA-F\]+).*$gdb_prompt $" {
218	set asm_test_addr $expect_out(1,string)
219    }
220    timeout { }
221}
222
223gdb_delete_tracepoints
224gdb_test "trace \*0x$asm_test_addr" \
225	"Tracepoint $decimal at .*$asm_test_addr.*" \
226	"1.6a: trace at specific address"
227gdb_test "info trace" "$asm_test_addr.*gdb_asm_test.*" \
228	"1.6b: verify trace at specific address"
229
230# 1.7 trace at function's exact address
231#     Collect the address of the function for comparison
232send_gdb "print gdb_recursion_test\n"
233gdb_expect {
234    -re "\[$\]\[0-9\].*0x(\[0-9a-fA-F\]+).*$gdb_prompt $" {
235	set c_test_addr $expect_out(1,string)
236    }
237    timeout { }
238}
239
240gdb_delete_tracepoints
241gdb_test "trace \*gdb_recursion_test" \
242	"Tracepoint $decimal at .*$c_test_addr.*" \
243	"1.7a: trace at function label (before prologue)"
244gdb_test "info trace" "$c_test_addr.*in gdb_recursion_test.*:$baseline" \
245	"1.7b: verify trace at specific address"
246
247# 1.8 trace at invalid address
248# no address is invalid
249
250# 1.9 trace no arguments
251gdb_test "trace" "trace command requires an argument" \
252	"1.9: trace <no arguments>"
253
254# 1.10 set large number of tracepoints
255# deferred to limits test module
256
257# 1.11 tracepoint conditions
258# conditions on tracepoints not implemented
259
260# 1.12 set tracepoint in prologue
261# [see tfind.exp]
262
263# 1.13 trace on recursion
264# interesting only in "live" session: see backtrace.exp for live test.
265
266# 1.14 help trace
267gdb_test "help trace" "Set a tracepoint at .*" "1.14: help trace"
268
269
270