projects
/
fw
/
openocd
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
nulink: add minimal support for Nu-Link2
[fw/openocd]
/
tcl
/
bitsbytes.tcl
diff --git
a/tcl/bitsbytes.tcl
b/tcl/bitsbytes.tcl
index 9129ae0ad6036802cb6c5856809bbb6f87c25152..52ca83db2ea465616b71110fe7961672db66f470 100644
(file)
--- 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]} {
# 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)]
}
global $vn
set $vn [expr (1024 * 1024 * $x)]
}
@@
-54,8
+54,6
@@
proc show_normalize_bitfield { VALUE MSB LSB } {
set m [create_mask $MSB $LSB]
set mr [expr $VALUE & $m]
set sr [expr $mr >> $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
}
return $sr
}
-
-