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...
34 if { 0 == [string compare
$MODE halt
] } {
37 if { 0 == [string compare
$MODE init
] } {
40 if { 0 == [string compare
$MODE run
] } {
44 return -code error "Invalid mode: $MODE, must be one of: halt, init, or run";
47 # Target event handlers *might* change which TAPs are enabled
48 # or disabled, so we fire all of them. But don't issue any
49 # target "arp_*" commands, which may issue JTAG transactions,
50 # unless we know the underlying TAP is active.
52 # NOTE: ARP == "Advanced Reset Process" ... "advanced" is
53 # relative to a previous restrictive scheme
57 $t invoke-event reset-start
60 # Use TRST or TMS/TCK operations to reset all the tap controllers.
61 # TAP reset events get reported; they might enable some taps.
64 # Examine all targets on enabled taps.
66 if {![using_jtag
] ||
[jtag tapisenabled
[$t cget
-chain-position
]]} {
67 $t invoke-event examine-start
68 set err
[catch "$t arp_examine allow-defer"]
70 $t invoke-event examine-end
75 # Assert SRST, and report the pre/post events.
76 # Note: no target sees SRST before "pre" or after "post".
78 $t invoke-event reset-assert-pre
81 # C code needs to know if we expect to 'halt'
82 if {![using_jtag
] ||
[jtag tapisenabled
[$t cget
-chain-position
]]} {
83 $t arp_reset assert
$halt
87 $t invoke-event reset-assert-post
90 # Now de-assert SRST, and report the pre/post events.
91 # Note: no target sees !SRST before "pre" or after "post".
93 $t invoke-event reset-deassert-pre
96 # Again, de-assert code needs to know if we 'halt'
97 if {![using_jtag
] ||
[jtag tapisenabled
[$t cget
-chain-position
]]} {
98 $t arp_reset deassert
$halt
102 $t invoke-event reset-deassert-post
105 # Pass 1 - Now wait for any halt (requested as part of reset
106 # assert/deassert) to happen. Ideally it takes effect without
107 # first executing any instructions.
110 if {[using_jtag
] && ![jtag tapisenabled
[$t cget
-chain-position
]]} {
114 # don't wait for targets where examination is deferred
115 # they can not be halted anyway at this point
116 if { ![$t was_examined
] && [$t examine_deferred
] } {
120 # Wait upto 1 second for target to halt. Why 1sec? Cause
121 # the JTAG tap reset signal might be hooked to a slow
122 # resistor/capacitor circuit - and it might take a while
125 # Catch, but ignore any errors.
126 catch { $t arp_waitstate halted
1000 }
131 if { 0 != [string compare
$s "halted" ] } {
132 return -code error [format "TARGET: %s - Not halted" $t]
137 #Pass 2 - if needed "init"
138 if { 0 == [string compare init
$MODE] } {
140 if {[using_jtag
] && ![jtag tapisenabled
[$t cget
-chain-position
]]} {
144 # don't wait for targets where examination is deferred
145 # they can not be halted anyway at this point
146 if { ![$t was_examined
] && [$t examine_deferred
] } {
150 set err
[catch "$t arp_waitstate halted 5000"]
153 $t invoke-event reset-init
159 $t invoke-event reset-end
164 set _TRANSPORT
[ transport select
]
165 expr { [ string first
"jtag" $_TRANSPORT ] != -1 }
169 set _TRANSPORT
[ transport select
]
170 expr { [ string first
"swd" $_TRANSPORT ] != -1 }
174 set _TRANSPORT
[ transport select
]
175 expr { [ string first
"hla" $_TRANSPORT ] != -1 }
180 # Temporary migration aid. May be removed starting in January 2011.
181 proc armv4_5 params
{
182 echo
"DEPRECATED! use 'arm $params' not 'armv4_5 $params'"
186 # Target/chain configuration scripts can either execute commands directly
187 # or define a procedure which is executed once all configuration
188 # scripts have completed.
190 # By default(classic) the config scripts will set up the target configuration
191 proc init_targets
{} {
194 proc set_default_target_event
{t e s
} {
195 if {[$t cget
-event $e] == ""} {
196 $t configure
-event $e $s
200 proc init_target_events
{} {
201 set targets
[target names
]
204 set_default_target_event
$t gdb-flash-erase-start
"reset init"
205 set_default_target_event
$t gdb-flash-write-end
"reset halt"
206 set_default_target_event
$t gdb-attach
"halt"
210 # Additionally board config scripts can define a procedure init_board that will be executed after init and init_targets
214 # deprecated target name cmds
215 proc cortex_m3 args
{
216 echo
"DEPRECATED! use 'cortex_m' not 'cortex_m3'"
220 proc cortex_a8 args
{
221 echo
"DEPRECATED! use 'cortex_a' not 'cortex_a8'"
225 # deprecated ftdi cmds
226 proc ftdi_location args
{
227 echo
"DEPRECATED! use 'adapter usb location' not 'ftdi_location'"
228 eval adapter usb location
$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)