1 # SPDX-License-Identifier: GPL-2.0-or-later
3 # Defines basic Tcl procs for OpenOCD target module
5 proc new_target_name
{ } {
6 return [target number
[expr {[target count
] - 1}]]
9 global in_process_reset
10 set in_process_reset
0
12 # Catch reset recursion
13 proc ocd_process_reset
{ MODE
} {
14 global in_process_reset
15 if {$in_process_reset} {
16 set in_process_reset
0
17 return -code error "'reset' can not be invoked recursively"
20 set in_process_reset
1
21 set success [expr {[catch {ocd_process_reset_inner
$MODE} result
] == 0}]
22 set in_process_reset
0
27 return -code error $result
31 proc ocd_process_reset_inner
{ MODE
} {
32 set targets
[target names
]
34 # If this target must be halted...
44 return -code error "Invalid mode: $MODE, must be one of: halt, init, or run";
48 # Target event handlers *might* change which TAPs are enabled
49 # or disabled, so we fire all of them. But don't issue any
50 # target "arp_*" commands, which may issue JTAG transactions,
51 # unless we know the underlying TAP is active.
53 # NOTE: ARP == "Advanced Reset Process" ... "advanced" is
54 # relative to a previous restrictive scheme
58 $t invoke-event reset-start
61 # Use TRST or TMS/TCK operations to reset all the tap controllers.
62 # TAP reset events get reported; they might enable some taps.
65 # Examine all targets on enabled taps.
67 if {![using_jtag
] ||
[jtag tapisenabled
[$t cget
-chain-position
]]} {
68 $t invoke-event examine-start
69 set err
[catch "$t arp_examine allow-defer"]
71 $t invoke-event examine-fail
73 $t invoke-event examine-end
78 # Assert SRST, and report the pre/post events.
79 # Note: no target sees SRST before "pre" or after "post".
81 $t invoke-event reset-assert-pre
84 # C code needs to know if we expect to 'halt'
85 if {![using_jtag
] ||
[jtag tapisenabled
[$t cget
-chain-position
]]} {
86 $t arp_reset assert
$halt
90 $t invoke-event reset-assert-post
93 # Now de-assert SRST, and report the pre/post events.
94 # Note: no target sees !SRST before "pre" or after "post".
96 $t invoke-event reset-deassert-pre
99 # Again, de-assert code needs to know if we 'halt'
100 if {![using_jtag
] ||
[jtag tapisenabled
[$t cget
-chain-position
]]} {
101 $t arp_reset deassert
$halt
105 $t invoke-event reset-deassert-post
108 # Pass 1 - Now wait for any halt (requested as part of reset
109 # assert/deassert) to happen. Ideally it takes effect without
110 # first executing any instructions.
113 if {[using_jtag
] && ![jtag tapisenabled
[$t cget
-chain-position
]]} {
117 if { ![$t was_examined
] } {
118 # don't wait for targets where examination is deferred
119 # they can not be halted anyway at this point
120 if { [$t examine_deferred
] } {
123 # try to re-examine or target state will be unknown
124 $t invoke-event examine-start
125 set err
[catch "$t arp_examine allow-defer"]
127 $t invoke-event examine-fail
128 return -code error [format "TARGET: %s - Not examined" $t]
130 $t invoke-event examine-end
134 # Wait up to 1 second for target to halt. Why 1sec? Cause
135 # the JTAG tap reset signal might be hooked to a slow
136 # resistor/capacitor circuit - and it might take a while
139 # Catch, but ignore any errors.
140 catch { $t arp_waitstate halted
1000 }
145 if { $s != "halted" } {
146 return -code error [format "TARGET: %s - Not halted" $t]
151 #Pass 2 - if needed "init"
152 if { $MODE == "init" } {
154 if {[using_jtag
] && ![jtag tapisenabled
[$t cget
-chain-position
]]} {
158 # don't wait for targets where examination is deferred
159 # they can not be halted anyway at this point
160 if { ![$t was_examined
] && [$t examine_deferred
] } {
164 set err
[catch "$t arp_waitstate halted 5000"]
167 $t invoke-event reset-init
173 $t invoke-event reset-end
178 set _TRANSPORT
[ transport select
]
179 expr { [ string first
"jtag" $_TRANSPORT ] != -1 }
183 set _TRANSPORT
[ transport select
]
184 expr { [ string first
"swd" $_TRANSPORT ] != -1 }
188 set _TRANSPORT
[ transport select
]
189 expr { [ string first
"hla" $_TRANSPORT ] != -1 }
194 # Target/chain configuration scripts can either execute commands directly
195 # or define a procedure which is executed once all configuration
196 # scripts have completed.
198 # By default(classic) the config scripts will set up the target configuration
199 proc init_targets
{} {
202 proc set_default_target_event
{t e s
} {
203 if {[$t cget
-event $e] == ""} {
204 $t configure
-event $e $s
208 proc init_target_events
{} {
209 set targets
[target names
]
212 set_default_target_event
$t gdb-flash-erase-start
"reset init"
213 set_default_target_event
$t gdb-flash-write-end
"reset halt"
214 set_default_target_event
$t gdb-attach
"halt 1000"
218 # Additionally board config scripts can define a procedure init_board that will be executed after init and init_targets
222 lappend _telnet_autocomplete_skip _post_init_target_array_mem
223 proc _post_init_target_array_mem
{} {
224 set targets
[target names
]
231 eval [format {lappend ::_telnet_autocomplete_skip "%smem2array"} $t]
232 eval [format {proc {%smem2array
} {arrayname bitwidth address count
{phys
""}} {
233 echo
"DEPRECATED! use 'read_memory' not 'mem2array'"
235 upvar $arrayname $arrayname
239 foreach elem
[%sread_memory
$address $bitwidth $count {*}$phys] {
240 set ${arrayname
}($i) $elem
244 eval [format {lappend ::_telnet_autocomplete_skip "%sarray2mem"} $t]
245 eval [format {proc {%sarray2mem
} {arrayname bitwidth address count
{phys
""}} {
246 echo
"DEPRECATED! use 'write_memory' not 'array2mem'"
248 upvar $arrayname $arrayname
251 for {set i
0} {$i < $count} {incr i
} {
252 lappend data
[expr $${arrayname
}($i)]
255 %swrite_memory
$address $bitwidth $data {*}$phys
259 lappend post_init_commands _post_init_target_array_mem
261 # smp_on/smp_off were already DEPRECATED in v0.11.0 through http://openocd.zylin.com/4615
262 lappend _telnet_autocomplete_skip
"aarch64 smp_on"
263 proc "aarch64 smp_on" {args
} {
264 echo
"DEPRECATED! use 'aarch64 smp on' not 'aarch64 smp_on'"
265 eval aarch64 smp on
$args
268 lappend _telnet_autocomplete_skip
"aarch64 smp_off"
269 proc "aarch64 smp_off" {args
} {
270 echo
"DEPRECATED! use 'aarch64 smp off' not 'aarch64 smp_off'"
271 eval aarch64 smp off
$args
274 lappend _telnet_autocomplete_skip
"cortex_a smp_on"
275 proc "cortex_a smp_on" {args
} {
276 echo
"DEPRECATED! use 'cortex_a smp on' not 'cortex_a smp_on'"
277 eval cortex_a smp on
$args
280 lappend _telnet_autocomplete_skip
"cortex_a smp_off"
281 proc "cortex_a smp_off" {args
} {
282 echo
"DEPRECATED! use 'cortex_a smp off' not 'cortex_a smp_off'"
283 eval cortex_a smp off
$args
286 lappend _telnet_autocomplete_skip
"mips_m4k smp_on"
287 proc "mips_m4k smp_on" {args
} {
288 echo
"DEPRECATED! use 'mips_m4k smp on' not 'mips_m4k smp_on'"
289 eval mips_m4k smp on
$args
292 lappend _telnet_autocomplete_skip
"mips_m4k smp_off"
293 proc "mips_m4k smp_off" {args
} {
294 echo
"DEPRECATED! use 'mips_m4k smp off' not 'mips_m4k smp_off'"
295 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)