From 8dbec761cf858ea65900c8a094599857208d8c3a Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
Date: Tue, 5 Jan 2010 22:49:36 +0000
Subject: svn path=/trunk/; revision=12907

---
 desiredata/src/profile_dd.tcl | 19 -------------------
 1 file changed, 19 deletions(-)
 delete mode 100644 desiredata/src/profile_dd.tcl

(limited to 'desiredata/src/profile_dd.tcl')

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
-}
-- 
cgit v1.2.1