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 if [catch {transport select
} current_transport
] {
93 echo
"Info : session transport was not selected, defaulting to JTAG"
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 otherewise had troublesome/misleading names.
121 # FIXME phase these aids out after about April 2011
124 echo
"DEPRECATED! use 'adapter_khz' not 'jtag_khz'"
125 eval adapter_khz
$args
128 proc jtag_nsrst_delay args
{
129 echo
"DEPRECATED! use 'adapter_nsrst_delay' not 'jtag_nsrst_delay'"
130 eval adapter_nsrst_delay
$args
133 proc jtag_nsrst_assert_width args
{
134 echo
"DEPRECATED! use 'adapter_nsrst_assert_width' not 'jtag_nsrst_assert_width'"
135 eval adapter_nsrst_assert_width
$args
138 # stlink migration helpers
139 proc stlink_device_desc args
{
140 echo
"DEPRECATED! use 'hla_device_desc' not 'stlink_device_desc'"
141 eval hla_device_desc
$args
144 proc stlink_serial args
{
145 echo
"DEPRECATED! use 'hla_serial' not 'stlink_serial'"
146 eval hla_serial
$args
149 proc stlink_layout args
{
150 echo
"DEPRECATED! use 'hla_layout' not 'stlink_layout'"
151 eval hla_layout
$args
154 proc stlink_vid_pid args
{
155 echo
"DEPRECATED! use 'hla_vid_pid' not 'stlink_vid_pid'"
156 eval hla_vid_pid
$args
160 echo
"DEPRECATED! use 'hla' not 'stlink'"
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)