projects
/
fw
/
openocd
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
flash/stm32l4x: add support of STM32WL5x dual core
[fw/openocd]
/
tcl
/
bitsbytes.tcl
diff --git
a/tcl/bitsbytes.tcl
b/tcl/bitsbytes.tcl
index 52ca83db2ea465616b71110fe7961672db66f470..756c725df6d95bfd1a20eb4d879ee3840b5d29fe 100644
(file)
--- a/
tcl/bitsbytes.tcl
+++ b/
tcl/bitsbytes.tcl
@@
-2,33
+2,33
@@
# Purpose - Create some $BIT variables
# Create $K and $M variables
# and some bit field extraction variables.
# Purpose - Create some $BIT variables
# Create $K and $M variables
# and some bit field extraction variables.
-# Creat helper variables ...
+# Creat
e
helper variables ...
# BIT0.. BIT31
# 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.
@@
-36,7
+36,7
@@
proc create_mask { MSB LSB } {
# Result: 0x02340000
proc extract_bitfield { VALUE MSB LSB } {
# Result: 0x02340000
proc extract_bitfield { VALUE MSB LSB } {
- return [expr
[create_mask $MSB $LSB] & $VALUE
]
+ return [expr
{[create_mask $MSB $LSB] & $VALUE}
]
}
}
@@
-47,13
+47,13
@@
proc extract_bitfield { VALUE MSB LSB } {
# Result: 0x00000234
#
proc normalize_bitfield { VALUE MSB LSB } {
# Result: 0x00000234
#
proc normalize_bitfield { VALUE MSB LSB } {
- return [expr
[extract_bitfield $VALUE $MSB $LSB ] >> $LSB
]
+ return [expr
{[extract_bitfield $VALUE $MSB $LSB ] >> $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
}