1 # Copyright 1998, 2007, 2008, 2009, 2010 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 load_lib "trace-support.exp"
24 set srcfile ${testfile}.c
25 set binfile $objdir/$subdir/$testfile
27 if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
28 executable {debug nowarnings}] != "" } {
34 # 1) Set up a trace experiment that will collect approximately 10 frames,
35 # requiring more than 512 but less than 1024 bytes of cache buffer.
36 # (most targets should have at least 1024 bytes of cache buffer!)
37 # Run and confirm that it collects all 10 frames.
38 # 2) Artificially limit the trace buffer to 512 bytes, and rerun the
39 # experiment. Confirm that the first several frames are collected,
40 # but that the last several are not.
41 # 3) Set trace buffer to circular mode, still with the artificial limit
42 # of 512 bytes, and rerun the experiment. Confirm that the last
43 # several frames are collected, but the first several are not.
46 # return 0 for success, 1 for failure
47 proc run_trace_experiment { pass } {
50 if [gdb_test "tstart" \
52 "start trace experiment, pass $pass"] then { return 1; }
53 if [gdb_test "continue" \
54 "Continuing.*Breakpoint \[0-9\]+, end.*" \
55 "run to end, pass $pass"] then { return 1; }
56 if [gdb_test "tstop" \
58 "stop trace experiment, pass $pass"] then { return 1; }
62 # return 0 for success, 1 for failure
63 proc set_a_tracepoint { func } {
64 if [gdb_test "trace $func" \
65 "Tracepoint \[0-9\]+ at .*" \
66 "set tracepoint at $func"] then {
69 if [gdb_trace_setactions "set actions for $func" \
71 "collect testload" "^$"] then {
77 # return 0 for success, 1 for failure
78 proc setup_tracepoints { } {
79 gdb_delete_tracepoints
80 if [set_a_tracepoint func0] then { return 1; }
81 if [set_a_tracepoint func1] then { return 1; }
82 if [set_a_tracepoint func2] then { return 1; }
83 if [set_a_tracepoint func3] then { return 1; }
84 if [set_a_tracepoint func4] then { return 1; }
85 if [set_a_tracepoint func5] then { return 1; }
86 if [set_a_tracepoint func6] then { return 1; }
87 if [set_a_tracepoint func7] then { return 1; }
88 if [set_a_tracepoint func8] then { return 1; }
89 if [set_a_tracepoint func9] then { return 1; }
93 # return 0 for success, 1 for failure
94 proc trace_buffer_normal { } {
95 if [gdb_test "maint packet QTBuffer:size:ffffffff" \
96 "received: .OK." ""] then {
97 pass "This test cannot be run on this target"
100 if [gdb_test "maint packet QTBuffer:circular:0" \
101 "received: .OK." ""] then {
102 pass "This test cannot be run on this target"
108 # return 0 for success, 1 for failure
109 proc gdb_trace_circular_tests { } {
111 # We generously give ourselves one "pass" if we successfully
112 # detect that this test cannot be run on this target!
113 if { ![gdb_target_supports_trace] } then {
114 pass "Current target does not support trace"
118 if [trace_buffer_normal] then { return 1; }
120 gdb_test "break begin" ".*" ""
121 gdb_test "break end" ".*" ""
122 gdb_test "tstop" ".*" ""
123 gdb_test "tfind none" ".*" ""
125 if [setup_tracepoints] then { return 1; }
127 # First, run the trace experiment with default attributes:
128 # Make sure it behaves as expected.
129 if [run_trace_experiment 1] then { return 1; }
130 if [gdb_test "tfind start" \
132 "find frame zero, pass 1"] then { return 1; }
134 if [gdb_test "tfind 9" \
136 "find frame nine, pass 1"] then { return 1; }
138 if [gdb_test "tfind none" \
140 "quit trace debugging, pass 1"] then { return 1; }
142 # Then, shrink the trace buffer so that it will not hold
143 # all ten trace frames. Verify that frame zero is still
144 # collected, but frame nine is not.
145 if [gdb_test "maint packet QTBuffer:size:200" \
146 "received: .OK." "shrink the target trace buffer"] then {
149 if [run_trace_experiment 2] then { return 1; }
150 if [gdb_test "tfind start" \
152 "find frame zero, pass 2"] then { return 1; }
154 if [gdb_test "tfind 9" \
155 ".* failed to find .*" \
156 "fail to find frame nine, pass 2"] then { return 1; }
158 if [gdb_test "tfind none" \
160 "quit trace debugging, pass 2"] then { return 1; }
162 # Finally, make the buffer circular. Now when it runs out of
163 # space, it should wrap around and overwrite the earliest frames.
165 # 1) frame zero will be overwritten and therefore unavailable
166 # 2) the earliest frame in the buffer will be other-than-zero
167 # 3) frame nine will be available (unlike on pass 2).
168 if [gdb_test "maint packet QTBuffer:circular:1" \
169 "received: .OK." "make the target trace buffer circular"] then {
172 if [run_trace_experiment 3] then { return 1; }
173 if [gdb_test "tfind start" \
174 "#0 func\[1-9\] .*" \
175 "first frame is NOT frame zero, pass 3"] then { return 1; }
177 if [gdb_test "tfind 9" \
179 "find frame nine, pass 3"] then { return 1; }
181 if [gdb_test "tfind none" \
183 "quit trace debugging, pass 3"] then { return 1; }
188 # Start with a fresh gdb.
192 gdb_reinitialize_dir $srcdir/$subdir
195 if [target_info exists gdb_stub] {
199 gdb_test_no_output "set circular-trace-buffer on" \
200 "set circular-trace-buffer on"
202 gdb_test "show circular-trace-buffer" "Target's use of circular trace buffer is on." "show circular-trace-buffer (on)"
204 gdb_test_no_output "set circular-trace-buffer off" \
205 "set circular-trace-buffer off"
207 gdb_test "show circular-trace-buffer" "Target's use of circular trace buffer is off." "show circular-trace-buffer (off)"
209 # Body of test encased in a proc so we can return prematurely.
210 if { ![gdb_trace_circular_tests] } then {
211 # Set trace buffer attributes back to normal
216 gdb_test "tfind none" ".*" ""