[PD-cvs] pd/src profile_dd.tcl,1.1.2.2,1.1.2.2.2.1

[Mathieu Bouchard]

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