1 # Defines basic Tcl procs for OpenOCD JTAG module
3 # Executed during "init". Can be overridden
4 # by board/target/... scripts
6 if {[catch {jtag arp_init
} err
]!=0} {
7 # try resetting additionally
12 # This reset logic may be overridden by board/target/... scripts as needed
13 # to provide a reset that, if possible, is close to a power-up reset.
15 # Exit requirements include: (a) JTAG must be working, (b) the scan
16 # chain was validated with "jtag arp_init" (or equivalent), (c) nothing
17 # stays in reset. No TAP-specific scans were performed. It's OK if
18 # some targets haven't been reset yet; they may need TAP-specific scans.
20 # The "mode" values include: halt, init, run (from "reset" command);
21 # startup (at OpenOCD server startup, when JTAG may not yet work); and
22 # potentially more (for reset types like cold, warm, etc)
23 proc init_reset
{ mode
} {
31 # TODO: power_restore and power_dropout are currently neither
32 # documented nor supported except on ZY1000.
34 proc power_restore
{} {
35 echo
"Sensed power restore, running reset init and halting GDB."
38 # Halt GDB so user can deal with a detected power restore.
40 # After GDB is halted, then output is no longer forwarded
42 set targets
[target names
]
45 $t invoke-event arp_halt_gdb
49 add_help_text power_restore
"Overridable procedure run when power restore is detected. Runs 'reset init' by default."
51 proc power_dropout
{} {
52 echo
"Sensed power dropout."
57 # TODO: srst_deasserted and srst_asserted are currently neither
58 # documented nor supported except on ZY1000.
60 proc srst_deasserted
{} {
61 echo
"Sensed nSRST deasserted, running reset init and halting GDB."
64 # Halt GDB so user can deal with a detected reset.
66 # After GDB is halted, then output is no longer forwarded
68 set targets
[target names
]
71 $t invoke-event arp_halt_gdb
75 add_help_text srst_deasserted
"Overridable procedure run when srst deassert is detected. Runs 'reset init' by default."
77 proc srst_asserted
{} {
78 echo
"Sensed nSRST asserted."
81 # measure actual JTAG clock
84 set iterations
10000000;
86 echo
"Running at more than [expr $iterations.0 / ([ms]-$start_time)] kHz";
89 add_help_text measure_clk
"Runs a test to measure the JTAG clk. Useful with RCLK / RTCK."
91 proc default_to_jtag
{ f args
} {
92 set current_transport
[transport select
]
96 error "session transport is \"$current_transport\" but your config requires JTAG"
101 eval default_to_jtag jtag
$args
104 proc jtag_rclk args
{
105 eval default_to_jtag jtag_rclk
$args
108 proc jtag_ntrst_delay args
{
109 eval default_to_jtag jtag_ntrst_delay
$args
112 proc jtag_ntrst_assert_width args
{
113 eval default_to_jtag jtag_ntrst_assert_width
$args
116 # BEGIN MIGRATION AIDS ... these adapter operations originally had
117 # JTAG-specific names despite the fact that the operations were not
118 # specific to JTAG, or otherewise had troublesome/misleading names.
120 # FIXME phase these aids out after about April 2011
123 echo
"DEPRECATED! use 'adapter speed' not 'jtag_khz'"
124 eval adapter speed
$args
127 proc jtag_nsrst_delay args
{
128 echo
"DEPRECATED! use 'adapter srst delay' not 'jtag_nsrst_delay'"
129 eval adapter srst delay
$args
132 proc jtag_nsrst_assert_width args
{
133 echo
"DEPRECATED! use 'adapter srst pulse_width' not 'jtag_nsrst_assert_width'"
134 eval adapter srst pulse_width
$args
137 proc jtag_reset args
{
138 echo
"DEPRECATED! use 'adapter \[de\]assert' not 'jtag_reset'"
141 {eval adapter deassert trst deassert srst
}
143 {eval adapter deassert trst assert srst
}
145 {eval adapter assert trst deassert srst
}
147 {eval adapter assert trst assert srst
}
149 {return -code 1 -level 1 "jtag_reset: syntax error"}
153 # stlink migration helpers
154 proc stlink_device_desc args
{
155 echo
"DEPRECATED! use 'hla_device_desc' not 'stlink_device_desc'"
156 eval hla_device_desc
$args
159 proc stlink_serial args
{
160 echo
"DEPRECATED! use 'hla_serial' not 'stlink_serial'"
161 eval hla_serial
$args
164 proc stlink_layout args
{
165 echo
"DEPRECATED! use 'hla_layout' not 'stlink_layout'"
166 eval hla_layout
$args
169 proc stlink_vid_pid args
{
170 echo
"DEPRECATED! use 'hla_vid_pid' not 'stlink_vid_pid'"
171 eval hla_vid_pid
$args
175 echo
"DEPRECATED! use 'hla' not 'stlink'"
179 proc adapter_khz args
{
180 echo
"DEPRECATED! use 'adapter speed' not 'adapter_khz'"
181 eval adapter speed
$args
184 proc adapter_name args
{
185 echo
"DEPRECATED! use 'adapter name' not 'adapter_name'"
186 eval adapter name
$args
189 proc adapter_nsrst_delay args
{
190 echo
"DEPRECATED! use 'adapter srst delay' not 'adapter_nsrst_delay'"
191 eval adapter srst delay
$args
194 proc adapter_nsrst_assert_width args
{
195 echo
"DEPRECATED! use 'adapter srst pulse_width' not 'adapter_nsrst_assert_width'"
196 eval adapter srst pulse_width
$args
199 proc interface args
{
200 echo
"DEPRECATED! use 'adapter driver' not 'interface'"
201 eval adapter driver
$args
204 proc interface_transports args
{
205 echo
"DEPRECATED! use 'adapter transports' not 'interface_transports'"
206 eval adapter transports
$args
209 proc interface_list args
{
210 echo
"DEPRECATED! use 'adapter list' not 'interface_list'"
211 eval adapter
list $args
214 proc ftdi_location args
{
215 echo
"DEPRECATED! use 'adapter usb location' not 'ftdi_location'"
216 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)