Add configuration for EFM32 Gecko boards with Segger J-Link.
[openocd.git] / tcl / mmr_helpers.tcl
1
2 proc proc_exists { NAME } {
3 set n [info commands $NAME]
4 set l [string length $n]
5 return [expr $l != 0]
6 }
7
8 # Give: REGISTER name - must be a global variable.
9 proc show_mmr32_reg { NAME } {
10
11 global $NAME
12 # we want $($NAME)
13 set a [set [set NAME]]
14
15 if ![catch { set v [memread32 $a] } msg ] {
16 echo [format "%15s: (0x%08x): 0x%08x" $NAME $a $v]
17
18 # Was a helper defined?
19 set fn show_${NAME}_helper
20 if [ proc_exists $fn ] {
21 # Then call it
22 $fn $NAME $a $v
23 }
24 return $v;
25 } else {
26 error [format "%s (%s)" $msg $NAME ]
27 }
28 }
29
30
31 # Give: NAMES - an array of names accessable
32 # in the callers symbol-scope.
33 # VAL - the bits to display.
34
35 proc show_mmr32_bits { NAMES VAL } {
36
37 upvar $NAMES MYNAMES
38
39 set w 5
40 foreach {IDX N} $MYNAMES {
41 set l [string length $N]
42 if { $l > $w } { set w $l }
43 }
44
45 for { set x 24 } { $x >= 0 } { incr x -8 } {
46 echo -n " "
47 for { set y 7 } { $y >= 0 } { incr y -1 } {
48 set s $MYNAMES([expr $x + $y])
49 echo -n [format "%2d: %-*s | " [expr $x + $y] $w $s ]
50 }
51 echo ""
52
53 echo -n " "
54 for { set y 7 } { $y >= 0 } { incr y -1 } {
55 echo -n [format " %d%*s | " [expr !!($VAL & (1 << ($x + $y)))] [expr $w -1] ""]
56 }
57 echo ""
58 }
59 }
60
61
62 proc show_mmr_bitfield { MSB LSB VAL FIELDNAME FIELDVALUES } {
63 set width [expr (($MSB - $LSB + 1) + 7) / 4]
64 set nval [show_normalize_bitfield $VAL $MSB $LSB ]
65 set name0 [lindex $FIELDVALUES 0 ]
66 if [ string compare $name0 _NUMBER_ ] {
67 set sval [lindex $FIELDVALUES $nval]
68 } else {
69 set sval ""
70 }
71 echo [format "%-15s: %d (0x%0*x) %s" $FIELDNAME $nval $width $nval $sval ]
72 }

Linking to existing account procedure

If you already have an account and want to add another login method you MUST first sign in with your existing account and then change URL to read https://review.openocd.org/login/?link to get to this page again but this time it'll work for linking. Thank you.

SSH host keys fingerprints

1024 SHA256:YKx8b7u5ZWdcbp7/4AeXNaqElP49m6QrwfXaqQGJAOk gerrit-code-review@openocd.zylin.com (DSA)
384 SHA256:jHIbSQa4REvwCFG4cq5LBlBLxmxSqelQPem/EXIrxjk gerrit-code-review@openocd.org (ECDSA)
521 SHA256:UAOPYkU9Fjtcao0Ul/Rrlnj/OsQvt+pgdYSZ4jOYdgs gerrit-code-review@openocd.org (ECDSA)
256 SHA256:A13M5QlnozFOvTllybRZH6vm7iSt0XLxbA48yfc2yfY gerrit-code-review@openocd.org (ECDSA)
256 SHA256:spYMBqEYoAOtK7yZBrcwE8ZpYt6b68Cfh9yEVetvbXg gerrit-code-review@openocd.org (ED25519)
+--[ED25519 256]--+
|=..              |
|+o..   .         |
|*.o   . .        |
|+B . . .         |
|Bo. = o S        |
|Oo.+ + =         |
|oB=.* = . o      |
| =+=.+   + E     |
|. .=o   . o      |
+----[SHA256]-----+
2048 SHA256:0Onrb7/PHjpo6iVZ7xQX2riKN83FJ3KGU0TvI0TaFG4 gerrit-code-review@openocd.zylin.com (RSA)