X-Git-Url: https://review.openocd.org/gitweb?p=openocd.git;a=blobdiff_plain;f=tcl%2Fbitsbytes.tcl;h=2c4fd2907074f0008d2a585d320cffc7bfb61bf8;hp=9129ae0ad6036802cb6c5856809bbb6f87c25152;hb=03fc47a79e90337085517e79dd5540e1fd9eb871;hpb=dbbc9c41f7db210b0a4e226540a28e0a8a5019bf

diff --git a/tcl/bitsbytes.tcl b/tcl/bitsbytes.tcl
index 9129ae0ad6..2c4fd29070 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)]
 }
@@ -54,7 +54,7 @@ proc show_normalize_bitfield { VALUE MSB LSB } {
     set m [create_mask $MSB $LSB]
     set mr [expr $VALUE & $m]
     set sr [expr $mr >> $LSB]
-    puts [format "((0x%08x & 0x%08x) -> 0x%08x) >> %2d => (0x%x) %5d " $VALUE $m $mr $LSB $sr $sr]
+    echo [format "((0x%08x & 0x%08x) -> 0x%08x) >> %2d => (0x%x) %5d " $VALUE $m $mr $LSB $sr $sr]
    return $sr
 }