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 /bench.tcl | |
parent | d1f1a5e50bd135382ff8fe9abb63b54c33f8bf2c (diff) | |
download | jimtcl-108b579758bd71bb4a04f3cf8391e6b2d0da5337.zip jimtcl-108b579758bd71bb4a04f3cf8391e6b2d0da5337.tar.gz jimtcl-108b579758bd71bb4a04f3cf8391e6b2d0da5337.tar.bz2 |
Benchmarks in milliseconds for easier reading
Diffstat (limited to 'bench.tcl')
-rw-r--r-- | bench.tcl | 4 |
1 files changed, 2 insertions, 2 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"} } } |