[PD-cvs] pd/src profile_dd.tcl,NONE,1.1.2.1
Mathieu Bouchard
matju at users.sourceforge.net
Tue Oct 10 00:29:19 CEST 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1951
Added Files:
Tag: devel_0_39
profile_dd.tcl
Log Message:
some code that i use to complement the profiler
--- NEW FILE: profile_dd.tcl ---
# trace stuff requires 8.4
puts "profiler version [package require profiler]"
profiler::init
proc prof {{arg totalRuntime}} {
set dump [profiler::dump]
#foreach {a b} $dump {foreach {c d} $b {set prof($a:$c) $d}}
set top [profiler::sortFunctions $arg]
foreach entry $top {
mset {k v} $entry
if {!$v} {continue}
puts [format "%8d %s" $v $k]
}
}
More information about the Pd-cvs
mailing list