diff options
author | Steve Bennett <steveb@workware.net.au> | 2009-07-28 15:49:56 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 10:11:02 +1000 |
commit | 108b579758bd71bb4a04f3cf8391e6b2d0da5337 (patch) | |
tree | 717d5f68859b7ce7d1d9730957e5d3f873311ebd | |
parent | d1f1a5e50bd135382ff8fe9abb63b54c33f8bf2c (diff) | |
download | jimtcl-108b579758bd71bb4a04f3cf8391e6b2d0da5337.zip jimtcl-108b579758bd71bb4a04f3cf8391e6b2d0da5337.tar.gz jimtcl-108b579758bd71bb4a04f3cf8391e6b2d0da5337.tar.bz2 |
Benchmarks in milliseconds for easier reading
-rw-r--r-- | bench.tcl | 4 | ||||
-rw-r--r-- | tools/benchtable.tcl | 2 |
2 files changed, 3 insertions, 3 deletions
@@ -11,11 +11,11 @@ proc bench {title script} { if {!$batchmode} {puts "$Title - This test can't run on this interpreter"} lappend benchmarks $title F } else { - set t [lindex $res 0] + set t [expr [lindex $res 0] / 1000] lappend benchmarks $title $t set ts " $t" set ts [string range $ts [expr {[string length $ts]-10}] end] - if {!$batchmode} {puts "$Title -$ts microseconds per iteration"} + if {!$batchmode} {puts "$Title -$ts ms per iteration"} } } diff --git a/tools/benchtable.tcl b/tools/benchtable.tcl index 77c44f8..df14884 100644 --- a/tools/benchtable.tcl +++ b/tools/benchtable.tcl @@ -32,7 +32,7 @@ proc main {filename} { if {$v eq "F"} { puts -nonewline " F " } else { - puts -nonewline [format "% 6d " [expr {$v / 1000}]] + puts -nonewline [format "% 6d " $v] } } puts "" |