Benchmarks in milliseconds for easier reading

2 files changed, 3 insertions, 3 deletions

diff --git a/bench.tcl b/bench.tcl
index c34236c..0345537 100644
--- a/bench.tcl
+++ b/bench.tcl
@@ -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 ""