[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