projects
/
fw
/
openocd
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
tcl: [1/3] prepare for jimtcl 0.81 'expr' syntax change
[fw/openocd]
/
tcl
/
bitsbytes.tcl
diff --git
a/tcl/bitsbytes.tcl
b/tcl/bitsbytes.tcl
index 52ca83db2ea465616b71110fe7961672db66f470..5f9cae114745bf2d89f003160680f9edcebb95d5 100644
(file)
--- a/
tcl/bitsbytes.tcl
+++ b/
tcl/bitsbytes.tcl
@@
-5,30
+5,30
@@
# Creat helper variables ...
# BIT0.. BIT31
# Creat helper variables ...
# BIT0.. BIT31
-for { set x 0 } { $x < 32 } { set x [expr
$x + 1
]} {
+for { set x 0 } { $x < 32 } { set x [expr
{$x + 1}
]} {
set vn [format "BIT%d" $x]
global $vn
set vn [format "BIT%d" $x]
global $vn
- set $vn [expr
(1 << $x)
]
+ set $vn [expr
{1 << $x}
]
}
# Create K bytes values
# __1K ... to __2048K
}
# Create K bytes values
# __1K ... to __2048K
-for { set x 1 } { $x < 2048 } { set x [expr
$x * 2
]} {
+for { set x 1 } { $x < 2048 } { set x [expr
{$x * 2}
]} {
set vn [format "__%dK" $x]
global $vn
set vn [format "__%dK" $x]
global $vn
- set $vn [expr
(1024 * $x)
]
+ set $vn [expr
{1024 * $x}
]
}
# Create M bytes values
# __1M ... to __2048K
}
# Create M bytes values
# __1M ... to __2048K
-for { set x 1 } { $x < 2048 } { set x [expr
$x * 2
]} {
+for { set x 1 } { $x < 2048 } { set x [expr
{$x * 2}
]} {
set vn [format "__%dM" $x]
global $vn
set vn [format "__%dM" $x]
global $vn
- set $vn [expr
(1024 * 1024 * $x)
]
+ set $vn [expr
{1024 * 1024 * $x}
]
}
proc create_mask { MSB LSB } {
}
proc create_mask { MSB LSB } {
- return [expr
(((1 << ($MSB - $LSB + 1))-1) << $LSB)
]
+ return [expr
{((1 << ($MSB - $LSB + 1))-1) << $LSB}
]
}
# Cut Bits $MSB to $LSB out of this value.
}
# Cut Bits $MSB to $LSB out of this value.
@@
-52,8
+52,8
@@
proc normalize_bitfield { VALUE MSB LSB } {
proc show_normalize_bitfield { VALUE MSB LSB } {
set m [create_mask $MSB $LSB]
proc show_normalize_bitfield { VALUE MSB LSB } {
set m [create_mask $MSB $LSB]
- set mr [expr
$VALUE & $m
]
- set sr [expr
$mr >> $LSB
]
+ set mr [expr
{$VALUE & $m}
]
+ set sr [expr
{$mr >> $LSB}
]
echo [format "((0x%08x & 0x%08x) -> 0x%08x) >> %2d => (0x%x) %5d " $VALUE $m $mr $LSB $sr $sr]
return $sr
}
echo [format "((0x%08x & 0x%08x) -> 0x%08x) >> %2d => (0x%x) %5d " $VALUE $m $mr $LSB $sr $sr]
return $sr
}