35 lines
1.1 KiB
Tcl
35 lines
1.1 KiB
Tcl
|
#!/usr/bin/tclsh
|
||
|
|
#
|
||
|
|
# Run this script, redirecting input from cachegrind output, to compute the
|
||
|
|
# number of CPU cycles used by each VDBE opcode.
|
||
|
|
#
|
||
|
|
# The cachegrind output should be configured so that it reports a single
|
||
|
|
# column of Ir at the left margin. Ex:
|
||
|
|
#
|
||
|
|
# cg_annotation --show=Ir --auto=yes cachegrind.out.* | tclsh opcodesum.tcl
|
||
|
|
#
|
||
|
|
set currentop x
|
||
|
|
set ncycle(x) 0
|
||
|
|
while {![eof stdin]} {
|
||
|
|
set line [string map {\173 x \175 x \042 x} [gets stdin]]
|
||
|
|
if {[regexp { \. case OP_.*:} $line]} {
|
||
|
|
regexp {OP_(.+):} $line all currentop
|
||
|
|
set ncycle($currentop) 0
|
||
|
|
} elseif {[lindex $line 1]=="default:"
|
||
|
|
&& [regexp {really OP_Noop and OP_Explain} $line]} {
|
||
|
|
break
|
||
|
|
} elseif {[lindex $line 0]!="."} {
|
||
|
|
regsub -all {[^0-9]} [lindex $line 0] {} n
|
||
|
|
if {$n!=""} {incr ncycle($currentop) $n}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
unset ncycle(x)
|
||
|
|
set results {}
|
||
|
|
foreach op [lsort [array names ncycle]] {
|
||
|
|
if {$ncycle($op)==0} continue
|
||
|
|
lappend results [list $ncycle($op) $op]
|
||
|
|
}
|
||
|
|
foreach entry [lsort -index 0 -int -decr $results] {
|
||
|
|
puts [format {%-16s %10d} [lindex $entry 1] [lindex $entry 0]]
|
||
|
|
}
|