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