1 # Defines basic Tcl procs for OpenOCD target module
3 proc new_target_name
{ } {
4 return [target number
[expr {[target count
] - 1}]]
7 global in_process_reset
10 # Catch reset recursion
11 proc ocd_process_reset
{ MODE
} {
12 global in_process_reset
13 if {$in_process_reset} {
14 set in_process_reset
0
15 return -code error "'reset' can not be invoked recursively"
18 set in_process_reset
1
19 set success [expr {[catch {ocd_process_reset_inner
$MODE} result
] == 0}]
20 set in_process_reset
0
25 return -code error $result
29 proc ocd_process_reset_inner
{ MODE
} {
30 set targets
[target names
]
32 # If this target must be halted...
42 return -code error "Invalid mode: $MODE, must be one of: halt, init, or run";
46 # Target event handlers *might* change which TAPs are enabled
47 # or disabled, so we fire all of them. But don't issue any
48 # target "arp_*" commands, which may issue JTAG transactions,
49 # unless we know the underlying TAP is active.
51 # NOTE: ARP == "Advanced Reset Process" ... "advanced" is
52 # relative to a previous restrictive scheme
56 $t invoke-event reset-start
59 # Use TRST or TMS/TCK operations to reset all the tap controllers.
60 # TAP reset events get reported; they might enable some taps.
63 # Examine all targets on enabled taps.
65 if {![using_jtag
] ||
[jtag tapisenabled
[$t cget
-chain-position
]]} {
66 $t invoke-event examine-start
67 set err
[catch "$t arp_examine allow-defer"]
69 $t invoke-event examine-fail
71 $t invoke-event examine-end
76 # Assert SRST, and report the pre/post events.
77 # Note: no target sees SRST before "pre" or after "post".
79 $t invoke-event reset-assert-pre
82 # C code needs to know if we expect to 'halt'
83 if {![using_jtag
] ||
[jtag tapisenabled
[$t cget
-chain-position
]]} {
84 $t arp_reset assert
$halt
88 $t invoke-event reset-assert-post
91 # Now de-assert SRST, and report the pre/post events.
92 # Note: no target sees !SRST before "pre" or after "post".
94 $t invoke-event reset-deassert-pre
97 # Again, de-assert code needs to know if we 'halt'
98 if {![using_jtag
] ||
[jtag tapisenabled
[$t cget
-chain-position
]]} {
99 $t arp_reset deassert
$halt
103 $t invoke-event reset-deassert-post
106 # Pass 1 - Now wait for any halt (requested as part of reset
107 # assert/deassert) to happen. Ideally it takes effect without
108 # first executing any instructions.
111 if {[using_jtag
] && ![jtag tapisenabled
[$t cget
-chain-position
]]} {
115 # don't wait for targets where examination is deferred
116 # they can not be halted anyway at this point
117 if { ![$t was_examined
] && [$t examine_deferred
] } {
121 # Wait up to 1 second for target to halt. Why 1sec? Cause
122 # the JTAG tap reset signal might be hooked to a slow
123 # resistor/capacitor circuit - and it might take a while
126 # Catch, but ignore any errors.
127 catch { $t arp_waitstate halted
1000 }
132 if { $s != "halted" } {
133 return -code error [format "TARGET: %s - Not halted" $t]
138 #Pass 2 - if needed "init"
139 if { $MODE == "init" } {
141 if {[using_jtag
] && ![jtag tapisenabled
[$t cget
-chain-position
]]} {
145 # don't wait for targets where examination is deferred
146 # they can not be halted anyway at this point
147 if { ![$t was_examined
] && [$t examine_deferred
] } {
151 set err
[catch "$t arp_waitstate halted 5000"]
154 $t invoke-event reset-init
160 $t invoke-event reset-end
165 set _TRANSPORT
[ transport select
]
166 expr { [ string first
"jtag" $_TRANSPORT ] != -1 }
170 set _TRANSPORT
[ transport select
]
171 expr { [ string first
"swd" $_TRANSPORT ] != -1 }
175 set _TRANSPORT
[ transport select
]
176 expr { [ string first
"hla" $_TRANSPORT ] != -1 }
181 # Target/chain configuration scripts can either execute commands directly
182 # or define a procedure which is executed once all configuration
183 # scripts have completed.
185 # By default(classic) the config scripts will set up the target configuration
186 proc init_targets
{} {
189 proc set_default_target_event
{t e s
} {
190 if {[$t cget
-event $e] == ""} {
191 $t configure
-event $e $s
195 proc init_target_events
{} {
196 set targets
[target names
]
199 set_default_target_event
$t gdb-flash-erase-start
"reset init"
200 set_default_target_event
$t gdb-flash-write-end
"reset halt"
201 set_default_target_event
$t gdb-attach
"halt 1000"
205 # Additionally board config scripts can define a procedure init_board that will be executed after init and init_targets
209 proc mem2array
{arrayname bitwidth address count
{phys
""}} {
210 echo
"DEPRECATED! use 'read_memory' not 'mem2array'"
212 upvar $arrayname $arrayname
216 foreach elem
[read_memory
$address $bitwidth $count {*}$phys] {
217 set ${arrayname
}($i) $elem
222 proc array2mem
{arrayname bitwidth address count
{phys
""}} {
223 echo
"DEPRECATED! use 'write_memory' not 'array2mem'"
225 upvar $arrayname $arrayname
228 for {set i
0} {$i < $count} {incr i
} {
229 lappend data
[expr $${arrayname
}($i)]
232 write_memory
$address $bitwidth $data {*}$phys
235 # smp_on/smp_off were already DEPRECATED in v0.11.0 through http://openocd.zylin.com/4615
236 lappend _telnet_autocomplete_skip
"aarch64 smp_on"
237 proc "aarch64 smp_on" {args
} {
238 echo
"DEPRECATED! use 'aarch64 smp on' not 'aarch64 smp_on'"
239 eval aarch64 smp on
$args
242 lappend _telnet_autocomplete_skip
"aarch64 smp_off"
243 proc "aarch64 smp_off" {args
} {
244 echo
"DEPRECATED! use 'aarch64 smp off' not 'aarch64 smp_off'"
245 eval aarch64 smp off
$args
248 lappend _telnet_autocomplete_skip
"cortex_a smp_on"
249 proc "cortex_a smp_on" {args
} {
250 echo
"DEPRECATED! use 'cortex_a smp on' not 'cortex_a smp_on'"
251 eval cortex_a smp on
$args
254 lappend _telnet_autocomplete_skip
"cortex_a smp_off"
255 proc "cortex_a smp_off" {args
} {
256 echo
"DEPRECATED! use 'cortex_a smp off' not 'cortex_a smp_off'"
257 eval cortex_a smp off
$args
260 lappend _telnet_autocomplete_skip
"mips_m4k smp_on"
261 proc "mips_m4k smp_on" {args
} {
262 echo
"DEPRECATED! use 'mips_m4k smp on' not 'mips_m4k smp_on'"
263 eval mips_m4k smp on
$args
266 lappend _telnet_autocomplete_skip
"mips_m4k smp_off"
267 proc "mips_m4k smp_off" {args
} {
268 echo
"DEPRECATED! use 'mips_m4k smp off' not 'mips_m4k smp_off'"
269 eval mips_m4k smp off
$args
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)