projects
/
fw
/
openocd
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
tcl/target/ti_k3: Rename R5 targets to be more descriptive
[fw/openocd]
/
tcl
/
mmr_helpers.tcl
diff --git
a/tcl/mmr_helpers.tcl
b/tcl/mmr_helpers.tcl
index 6b2c1476ea3852195023d03066d82c08894c8d8e..d9b6e63834678a6c7f791f3cbc67331a2806fcd1 100644
(file)
--- a/
tcl/mmr_helpers.tcl
+++ b/
tcl/mmr_helpers.tcl
@@
-2,7
+2,7
@@
proc proc_exists { NAME } {
set n [info commands $NAME]
set l [string length $n]
proc proc_exists { NAME } {
set n [info commands $NAME]
set l [string length $n]
- return [expr
$l != 0
]
+ return [expr
{$l != 0}
]
}
# Give: REGISTER name - must be a global variable.
}
# Give: REGISTER name - must be a global variable.
@@
-52,7
+52,7
@@
proc show_mmr32_bits { NAMES VAL } {
echo -n " "
for { set y 7 } { $y >= 0 } { incr y -1 } {
echo -n " "
for { set y 7 } { $y >= 0 } { incr y -1 } {
- echo -n [format " %d%*s | " [expr
!!($VAL & (1 << ($x + $y)))
] [expr {$w -1}] ""]
+ echo -n [format " %d%*s | " [expr
{!!($VAL & (1 << ($x + $y)))}
] [expr {$w -1}] ""]
}
echo ""
}
}
echo ""
}