sqlite/tool/opcodesum.tcl

35 lines
1.1 KiB
Tcl
Raw Normal View History

#!/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]]
}