blob: d251725916eef943ba6fa31dfa1bee76683b35eb (
plain)
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
|
# Copyright (C) 2016 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/>.
# This test case is to test the speed of GDB when it is single-stepping
# with skip directives active. There's no need to test skip directives that
# match functions we're stepping through. That's not the interesting case.
# The interesting case is where there are 100s or more classes or libraries,
# each providing their own set of skip directives.
#
# Parameters:
# SKIP_STEP_COUNT: the number of single steps GDB performs
# SKIP_DIRECTIVE_COUNT: the number of skip directives to create
load_lib perftest.exp
if [skip_perf_tests] {
return 0
}
standard_testfile .cc skip-funcs.cc
set executable $testfile
set skip_func_file [standard_output_file $srcfile2]
set expfile $testfile.exp
# make check-perf RUNTESTFLAGS='skip-command.exp SKIP_STEP_COUNT=1000 ...'
if ![info exists SKIP_STEP_COUNT] {
set SKIP_STEP_COUNT 1000
}
if ![info exists SKIP_DIRECTIVE_COUNT] {
set SKIP_DIRECTIVE_COUNT 1000
}
proc delete_all_skips { } {
# FIXME: skip currently doesn't ask for confirmation
# FIXME: "skip delete" with no skips ->
# "No skiplist entries found with number (null)."
gdb_test_no_output "set confirm off"
gdb_test "skip delete" ""
gdb_test_no_output "set confirm on"
}
proc install_skips { kind text nr_skips } {
global gdb_prompt
set test "install_skips"
delete_all_skips
switch $kind {
"function" { set skip_arg "-function" }
"regexp" { set skip_arg "-rfunction" }
default {
perror "bad skip kind: $kind"
return
}
}
for { set i 0 } { $i < $nr_skips } { incr i } {
gdb_test "skip $skip_arg [format $text $i]" ""
}
# There could be 1000's of these, which can overflow the buffer.
# However, it's good to have this in the log, so we go to the effort
# to read it all in.
gdb_test_multiple "info skip" $test {
-re "\[^\r\n\]*\r\n" { exp_continue }
-re "\[\r\n\]*$gdb_prompt $" {
pass $test
}
timeout {
fail "$test (timeout)"
}
}
}
proc write_skip_func_source { file_name func_name_prefix nr_funcs } {
set f [open $file_name "w"]
puts $f "// DO NOT EDIT, machine generated file. See skip-command.exp."
for { set i 0 } { $i < $nr_funcs } { incr i } {
set func_name [format "${func_name_prefix}_%02d" $i]
puts $f "int $func_name () { return 0; }"
}
close $f
}
proc run_skip_bench { kind text } {
global SKIP_STEP_COUNT SKIP_DIRECTIVE_COUNT
if ![runto_main] {
fail "Can't run to main"
return -1
}
gdb_test_no_output "set variable flag = 1"
for { set i 0 } { $i < 5 } { incr i } {
set nr_skips [expr $i * $SKIP_DIRECTIVE_COUNT]
install_skips $kind $text $nr_skips
gdb_test_no_output "python SkipCommand\(\"skip-$kind-$nr_skips\", ${SKIP_STEP_COUNT}\).run()"
}
gdb_test "set variable flag = 0"
}
PerfTest::assemble {
global srcdir subdir srcfile binfile skip_func_file
global SKIP_DIRECTIVE_COUNT
write_skip_func_source $skip_func_file "skip_func" [expr 4 * $SKIP_DIRECTIVE_COUNT]
if { [gdb_compile [list "$srcdir/$subdir/$srcfile" $skip_func_file] ${binfile} executable {c++ debug}] != "" } {
return -1
}
return 0
} {
global binfile
clean_restart $binfile
return 0
} {
global SKIP_STEP_COUNT SKIP_DIRECTIVE_COUNT
with_test_prefix "time_skip_func" {
# N.B. The function name must match the ones in skip-command.cc.
run_skip_bench "function" "skip_func_%02d"
}
with_test_prefix "time_skip_constructor" {
run_skip_bench "regexp" "^(skip_class_%02d)::\\1 *\\("
}
return 0
}
|
