blob: a9442d3bdead3ca0fec9c756ba8cc13947dbb943 (
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
|
#!/usr/bin/tclsh
# -*- tcl -*-
proc do_time {module n} {
global Failures
# start kprobes
if {[catch {exec ../../stpd/staprun -rmq $module.ko > xxx &} pid]} {
puts $pid
exit -1
}
exec sleep 2
# get the timings while kprobes running
if {[catch {exec ./ttest $n} res2]} {
puts $res2
exit -1
}
# terminate kprobes
if {[catch {exec kill -s SIGINT $pid} res]} {
puts $res
}
exec sleep 2
# look for warnings
exec tail xxx >xxx.tail
if {[catch {open xxx.tail r} fd]} {
puts "Cannot open test output\n"
exit -1
}
set Failures 0
while {[gets $fd line] >= 0} {
if {[regexp {^\033\[33mWARNING: \033\[0mThere were ([0-9]*) transport failures.} $line match var]} {
set Failures $var
break
}
}
close $fd
exec /bin/rm -f xxx xxx.out
return $res2
}
######## START HERE ###########
set nproc [exec grep ^processor /proc/cpuinfo | wc -l]
if {![catch {exec grep "physical id" /proc/cpuinfo} phyid]} {
foreach phy [split $phyid \n] {
set cpu($phy) 1
}
}
set model [exec grep "model name" /proc/cpuinfo]
set model [lindex [split $model \n] 0]
set model [string range $model [expr [string first : $model]+1] end]
set model [string trimleft $model]
puts "STP BENCH for [exec uname -r] on [exec uname -m]"
if {[file exists /etc/redhat-release]} {
puts [exec cat /etc/redhat-release]
}
puts "[exec uname -n]: [exec uptime]"
if {$nproc > 1} {
puts "processors: $nproc ([array size cpu] physical) $model"
} else {
puts "processors: $nproc $model"
}
set mem [split [exec cat /proc/meminfo] \n]
puts "[lindex $mem 0] [lindex $mem 1]"
puts "--------------------------------------"
# get the timings without kprobes
if {[catch {exec ./ttest 4} res1]} {
puts $res1
exit -1
}
set r_overhead [lindex $res1 0]
set w_overhead [lindex $res1 1]
puts "function call overhead = $r_overhead ns"
puts "--------------------------------------"
set res2 [do_time bench 4]
set t_kprobe [expr [lindex $res2 0] - $r_overhead]
set t_jprobe [expr [lindex $res2 1] - $w_overhead]
puts "Jprobes overhead = $t_jprobe ns"
puts "Kprobes overhead = $t_kprobe ns"
puts "--------------------------------------"
if {[file exists bench_ret.ko]} {
set res2 [do_time bench_ret 4]
set t_ret [expr [lindex $res2 0] - $r_overhead]
set t_entret [expr [lindex $res2 1] - $w_overhead]
puts "Return probe overhead = $t_ret ns"
puts "Entry+Return probe overhead = $t_entret ns"
puts "--------------------------------------"
}
set res2 [do_time bench_multi 4]
set t_k2 [expr [lindex $res2 0] - $r_overhead]
set t_k4 [expr [lindex $res2 1] - $w_overhead]
puts "2 kprobes on same func = $t_k2 ns"
puts "4 kprobes on same func = $t_k4 ns"
puts "--------------------------------------"
set res2 [do_time bench_io1 1]
# subtract function call overhead and kprobe overhead
set t_printf [expr [lindex $res2 0] - $r_overhead - $t_kprobe]
set t_print [expr [lindex $res2 1] - $w_overhead - $t_kprobe]
puts "PROCFS"
puts "_stp_printf on 100 chars = $t_printf ns."
puts "_stp_print on 100 chars = $t_print ns."
puts "Transport failures: $Failures"
puts "--------------------------------------"
exec sleep 4
set res2 [do_time bench_io2 1]
# subtract function call overhead and kprobe overhead
set t_printf [expr [lindex $res2 0] - $r_overhead - $t_kprobe]
set t_print [expr [lindex $res2 1] - $w_overhead - $t_kprobe]
puts "RELAYFS"
puts "_stp_printf on 100 chars = $t_printf ns."
puts "_stp_print on 100 chars = $t_print ns."
puts "Transport failures: $Failures"
puts "--------------------------------------"
exec /bin/rm -f stpd_cpu*
|
