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.
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.
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 set speed
[expr "$iterations.0 / ([ms] - $start_time)"]
87 echo
"Running at more than $speed kHz";
90 add_help_text measure_clk
"Runs a test to measure the JTAG clk. Useful with RCLK / RTCK."
92 proc default_to_jtag
{ f args
} {
93 set current_transport
[transport select
]
97 error "session transport is \"$current_transport\" but your config requires JTAG"
102 eval default_to_jtag jtag
$args
105 proc jtag_rclk args
{
106 eval default_to_jtag jtag_rclk
$args
109 proc jtag_ntrst_delay args
{
110 eval default_to_jtag jtag_ntrst_delay
$args
113 proc jtag_ntrst_assert_width args
{
114 eval default_to_jtag jtag_ntrst_assert_width
$args
117 # BEGIN MIGRATION AIDS ... these adapter operations originally had
118 # JTAG-specific names despite the fact that the operations were not
119 # specific to JTAG, or otherwise had troublesome/misleading names.
121 # FIXME phase these aids out after some releases
123 lappend _telnet_autocomplete_skip jtag_reset
124 proc jtag_reset args
{
125 echo
"DEPRECATED! use 'adapter \[de\]assert' not 'jtag_reset'"
128 {eval adapter deassert trst deassert srst
}
130 {eval adapter deassert trst assert srst
}
132 {eval adapter assert trst deassert srst
}
134 {eval adapter assert trst assert srst
}
136 {return -code 1 -level 1 "jtag_reset: syntax error"}
140 lappend _telnet_autocomplete_skip adapter_khz
141 proc adapter_khz args
{
142 echo
"DEPRECATED! use 'adapter speed' not 'adapter_khz'"
143 eval adapter speed
$args
146 lappend _telnet_autocomplete_skip adapter_name
147 proc adapter_name args
{
148 echo
"DEPRECATED! use 'adapter name' not 'adapter_name'"
149 eval adapter name
$args
152 lappend _telnet_autocomplete_skip adapter_nsrst_delay
153 proc adapter_nsrst_delay args
{
154 echo
"DEPRECATED! use 'adapter srst delay' not 'adapter_nsrst_delay'"
155 eval adapter srst delay
$args
158 lappend _telnet_autocomplete_skip adapter_nsrst_assert_width
159 proc adapter_nsrst_assert_width args
{
160 echo
"DEPRECATED! use 'adapter srst pulse_width' not 'adapter_nsrst_assert_width'"
161 eval adapter srst pulse_width
$args
164 lappend _telnet_autocomplete_skip interface
165 proc interface args
{
166 echo
"DEPRECATED! use 'adapter driver' not 'interface'"
167 eval adapter driver
$args
170 lappend _telnet_autocomplete_skip interface_transports
171 proc interface_transports args
{
172 echo
"DEPRECATED! use 'adapter transports' not 'interface_transports'"
173 eval adapter transports
$args
176 lappend _telnet_autocomplete_skip interface_list
177 proc interface_list args
{
178 echo
"DEPRECATED! use 'adapter list' not 'interface_list'"
179 eval adapter
list $args
182 lappend _telnet_autocomplete_skip ftdi_location
183 proc ftdi_location args
{
184 echo
"DEPRECATED! use 'adapter usb location' not 'ftdi_location'"
185 eval adapter usb location
$args
188 lappend _telnet_autocomplete_skip xds110_serial
189 proc xds110_serial args
{
190 echo
"DEPRECATED! use 'xds110 serial' not 'xds110_serial'"
191 eval xds110 serial
$args
194 lappend _telnet_autocomplete_skip xds110_supply_voltage
195 proc xds110_supply_voltage args
{
196 echo
"DEPRECATED! use 'xds110 supply' not 'xds110_supply_voltage'"
197 eval xds110 supply
$args
200 proc hla
{cmd args
} {
201 tailcall
"hla $cmd" {*}$args
204 lappend _telnet_autocomplete_skip
"hla newtap"
205 proc "hla newtap" {args
} {
206 echo
"DEPRECATED! use 'swj_newdap' not 'hla newtap'"
207 eval swj_newdap
$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)