Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24920
Modified Files: Tag: desiredata profile_dd.tcl Log Message: .
Index: profile_dd.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/profile_dd.tcl,v retrieving revision 1.1.2.2 retrieving revision 1.1.2.2.2.1 diff -C2 -d -r1.1.2.2 -r1.1.2.2.2.1 *** profile_dd.tcl 19 Nov 2006 05:58:51 -0000 1.1.2.2 --- profile_dd.tcl 28 Jun 2007 02:18:58 -0000 1.1.2.2.2.1 *************** *** 1,15 **** - puts "profiler version [package require profiler]" - profiler::init
! # try just: prof ! # or try: prof callCount ! 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] } } --- 1,20 ----
! if 1 { ! puts "profiler version [package require profiler]" ! profiler::init ! # try just: prof ! # or try: prof calls ! 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] ! } } } + if 0 { + load matjuprofiler/matjuprofiler.so + }