svn path=/trunk/; revision=12907

1 files changed, 0 insertions, 19 deletions

diff --git a/desiredata/src/profile_dd.tcl b/desiredata/src/profile_dd.tcl
deleted file mode 100644
index c5f22827..00000000
--- a/desiredata/src/profile_dd.tcl
+++ /dev/null
@@ -1,19 +0,0 @@
-
-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]
-		}
-	}
-} else {
-	load matjuprofiler/matjuprofiler.so
-}