projects
/
fw
/
openocd
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
at91: add at91sam9g10 support
[fw/openocd]
/
tcl
/
mmr_helpers.tcl
diff --git
a/tcl/mmr_helpers.tcl
b/tcl/mmr_helpers.tcl
index ea2210ac4a6f99728e07d4b3a5c3ab48855eba55..ce116e4598fb5cc1c33b5552849faa6ca75c0cf9 100644
(file)
--- a/
tcl/mmr_helpers.tcl
+++ b/
tcl/mmr_helpers.tcl
@@
-7,13
+7,13
@@
proc proc_exists { NAME } {
# Give: REGISTER name - must be a global variable.
proc show_mmr32_reg { NAME } {
# Give: REGISTER name - must be a global variable.
proc show_mmr32_reg { NAME } {
-
+
global $NAME
# we want $($NAME)
set a [set [set NAME]]
if ![catch { set v [memread32 $a] } msg ] {
global $NAME
# we want $($NAME)
set a [set [set NAME]]
if ![catch { set v [memread32 $a] } msg ] {
-
puts
[format "%15s: (0x%08x): 0x%08x" $NAME $a $v]
+
echo
[format "%15s: (0x%08x): 0x%08x" $NAME $a $v]
# Was a helper defined?
set fn show_${NAME}_helper
# Was a helper defined?
set fn show_${NAME}_helper
@@
-41,20
+41,20
@@
proc show_mmr32_bits { NAMES VAL } {
set l [string length $N]
if { $l > $w } { set w $l }
}
set l [string length $N]
if { $l > $w } { set w $l }
}
-
+
for { set x 24 } { $x >= 0 } { incr x -8 } {
for { set x 24 } { $x >= 0 } { incr x -8 } {
-
puts -nonewline
" "
+
echo -n
" "
for { set y 7 } { $y >= 0 } { incr y -1 } {
set s $MYNAMES([expr $x + $y])
for { set y 7 } { $y >= 0 } { incr y -1 } {
set s $MYNAMES([expr $x + $y])
-
puts -nonewline
[format "%2d: %-*s | " [expr $x + $y] $w $s ]
+
echo -n
[format "%2d: %-*s | " [expr $x + $y] $w $s ]
}
}
-
puts
""
+
echo
""
-
puts -nonewline
" "
+
echo -n
" "
for { set y 7 } { $y >= 0 } { incr y -1 } {
for { set y 7 } { $y >= 0 } { incr y -1 } {
-
puts -nonewline
[format " %d%*s | " [expr !!($VAL & (1 << ($x + $y)))] [expr $w -1] ""]
+
echo -n
[format " %d%*s | " [expr !!($VAL & (1 << ($x + $y)))] [expr $w -1] ""]
}
}
-
puts
""
+
echo
""
}
}
}
}
@@
-68,5
+68,5
@@
proc show_mmr_bitfield { MSB LSB VAL FIELDNAME FIELDVALUES } {
} else {
set sval ""
}
} else {
set sval ""
}
-
puts
[format "%-15s: %d (0x%0*x) %s" $FIELDNAME $nval $width $nval $sval ]
+
echo
[format "%-15s: %d (0x%0*x) %s" $FIELDNAME $nval $width $nval $sval ]
}
}