1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
|
# Copyright 2011-2024 Free Software Foundation, Inc.
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
load_lib "trace-support.exp"
require allow_shlib_tests
# Do not run if gdbsever debug is enabled - the output file is many Gb.
if [gdbserver_debug_enabled] {
return 0
}
standard_testfile
set executable $testfile
# Check that the target supports trace.
if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile executable $options] != "" } {
untested "failed to compile"
return -1
}
clean_restart ${testfile}
if ![runto_main] {
return -1
}
if ![gdb_target_supports_trace] {
unsupported "target does not support trace"
return -1
}
# Compile the test case with the in-process agent library.
require allow_in_proc_agent
set ipalib [get_in_proc_agent]
if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
executable [concat {debug c} shlib=$ipalib]] != "" } {
untested "failed to compile"
return -1
}
# Typically we need a little extra time for this test.
set timeout 180
set ws "\[\r\n\t \]+"
set cr "\[\r\n\]+"
#
# Utility procs
#
proc prepare_for_trace_test {} {
global executable
global ipalib
clean_restart $executable
gdb_load_shlib $ipalib
runto_main
set testline [gdb_get_line_number "set pre-run breakpoint here"]
gdb_test "break $testline" ".*" \
"break at pre-run"
set testline [gdb_get_line_number "set post-run breakpoint here"]
gdb_test "break $testline" ".*" \
"break at post-run"
}
proc run_trace_experiment {} {
gdb_test "continue" \
".*Breakpoint \[0-9\]+, main .*" \
"advance to trace begin"
gdb_test_no_output "tstart" "start trace experiment"
gdb_test "continue" \
".*Breakpoint \[0-9\]+, main .*" \
"advance through tracing"
gdb_test "tstatus" ".*Trace .*" "check on trace status"
gdb_test "tstop" "" ""
}
proc_with_prefix gdb_slow_trace_speed_test { } {
gdb_delete_tracepoints
gdb_test "print iters = init_iters" ".* = .*"
set testline [gdb_get_line_number "set tracepoint here"]
gdb_test "trace $testline if (globfoo != 12 && globfoo2 == 45)" \
"Tracepoint \[0-9\]+ at .*" \
"set slow tracepoint"
# Begin the test.
run_trace_experiment
}
proc_with_prefix gdb_fast_trace_speed_test { } {
global gdb_prompt
gdb_delete_tracepoints
gdb_test "print iters = init_iters" ".* = .*"
set run_ftrace 0
set testline [gdb_get_line_number "set tracepoint here"]
gdb_test_multiple "ftrace $testline if (globfoo != 12 && globfoo2 == 45)" \
"set conditional fast tracepoint" {
-re "Fast tracepoint \[0-9\]+ at .*\r\n$gdb_prompt $" {
pass "set conditional fast tracepoint, done"
set run_ftrace 1
}
-re "May not have a fast tracepoint at .*\r\n$gdb_prompt $" {
pass "set conditional fast tracepoint, not allowed at line"
}
}
# If the fast tracepoint couldn't be set, don't bother with the run.
if {$run_ftrace == 1} {
# Begin the test.
run_trace_experiment
}
}
proc gdb_trace_collection_test {} {
prepare_for_trace_test
gdb_slow_trace_speed_test
gdb_fast_trace_speed_test
}
clean_restart $executable
gdb_load_shlib $ipalib
runto_main
if {![gdb_target_supports_trace]} {
unsupported "current target does not support trace"
return 1
}
# Body of test encased in a proc so we can return prematurely.
gdb_trace_collection_test
|
