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] } }