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
|
# Copyright 2011-2014 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"
standard_testfile
set executable $testfile
set ipalib [get_in_proc_agent]
if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
executable [concat {debug nowarnings c} libs=$ipalib]] != "" } {
untested tspeed.exp
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
clean_restart $executable
runto_main
set testline [gdb_get_line_number "set pre-run breakpoint here"]
gdb_test "break $testline" ".*" ""
set testline [gdb_get_line_number "set post-run breakpoint here"]
gdb_test "break $testline" ".*" ""
}
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 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 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 } then {
# 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
runto_main
if { ![gdb_target_supports_trace] } then {
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
|
