diff options
Diffstat (limited to 'desiredata/src/profile_dd.tcl')
-rw-r--r-- | desiredata/src/profile_dd.tcl | 19 |
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 -} |