diff options
Diffstat (limited to 'tcl/bitsbytes.tcl')
| -rw-r--r-- | tcl/bitsbytes.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tcl/bitsbytes.tcl b/tcl/bitsbytes.tcl index 9129ae0a..3f65c209 100644 --- a/tcl/bitsbytes.tcl +++ b/tcl/bitsbytes.tcl @@ -22,7 +22,7 @@ for { set x 1 } { $x < 2048 } { set x [expr $x * 2]} { # Create M bytes values # __1M ... to __2048K for { set x 1 } { $x < 2048 } { set x [expr $x * 2]} { - set vn [format "__%dM" $x] + set vn [format "__%dM" $x] global $vn set $vn [expr (1024 * 1024 * $x)] } |