diff options
author | antirez <antirez> | 2005-03-10 10:03:32 +0000 |
---|---|---|
committer | antirez <antirez> | 2005-03-10 10:03:32 +0000 |
commit | 2936b0cfbf7fab966cfd65278a9140bc3848ce97 (patch) | |
tree | f0991f1ef52c6196bb6482aa2c6fed5c050ffd52 /bench.tcl | |
parent | 5223e4841465ac399bfed2122e7d61dcd60c0102 (diff) | |
download | jimtcl-2936b0cfbf7fab966cfd65278a9140bc3848ce97.zip jimtcl-2936b0cfbf7fab966cfd65278a9140bc3848ce97.tar.gz jimtcl-2936b0cfbf7fab966cfd65278a9140bc3848ce97.tar.bz2 |
Some fix to bench.tcl to make it able to run in Tcl7.6.
README update.
Diffstat (limited to 'bench.tcl')
-rw-r--r-- | bench.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -4,7 +4,7 @@ set benchmarks {} proc bench {title script} { global benchmarks batchmode - set Title [string range "$title [string repeat " " 20]" 0 20] + set Title [string range "$title " 0 20] set failed [catch {time $script} res] if {$failed} { @@ -13,8 +13,8 @@ proc bench {title script} { } else { set t [lindex $res 0] lappend benchmarks $title $t - set ts "[string repeat " " 10]$t" - set ts [string range $ts end-10 end] + set ts " $t" + set ts [string range $ts [expr {[string length $ts]-10}] end] if {!$batchmode} {puts "$Title -$ts microseconds per iteration"} } } |