1 # SPDX-License-Identifier: GPL-2.0-or-later
3 # Defines basic Tcl procs for OpenOCD flash module
7 # usage: program filename
8 # optional args: verify, reset, exit and address
11 lappend _telnet_autocomplete_skip program_error
12 proc program_error
{description
exit} {
21 proc program
{filename args
} {
26 if {[string equal
$arg "preverify"]} {
28 } elseif
{[string equal
$arg "verify"]} {
30 } elseif
{[string equal
$arg "reset"]} {
32 } elseif
{[string equal
$arg "exit"]} {
40 set filename \{$filename\}
41 if {[info exists address
]} {
42 set flash_args
"$filename $address"
44 set flash_args
"$filename"
48 # make sure init is called
49 if {[catch {init
}] != 0} {
50 program_error
"** OpenOCD init failed **" 1
53 # reset target and call any init scripts
54 if {[catch {reset init
}] != 0} {
55 program_error
"** Unable to reset target **" $exit
58 # Check whether programming is needed
59 if {[info exists preverify
]} {
60 echo
"**pre-verifying**"
61 if {[catch {eval verify_image
$flash_args}] == 0} {
62 echo
"**Verified OK - No flashing**"
67 # start programming phase
68 if {$needsflash == 1} {
69 echo
"** Programming Started **"
71 if {[catch {eval flash write_image erase
$flash_args}] == 0} {
72 echo
"** Programming Finished **"
73 if {[info exists verify
]} {
75 echo
"** Verify Started **"
76 if {[catch {eval verify_image
$flash_args}] == 0} {
77 echo
"** Verified OK **"
79 program_error
"** Verify Failed **" $exit
83 program_error
"** Programming Failed **" $exit
87 if {[info exists reset
]} {
88 # reset target if requested
90 # also disable target polling, we are shutting down anyway
93 echo
"** Resetting Target **"
104 add_help_text program
"write an image to flash, address is only required for binary images. verify, reset, exit are optional"
105 add_usage_text program
"<filename> \[address\] \[pre-verify\] \[verify\] \[reset\] \[exit\]"
107 # stm32[f0x|f3x] uses the same flash driver as the stm32f1x
108 proc stm32f0x args
{ eval stm32f1x
$args }
109 proc stm32f3x args
{ eval stm32f1x
$args }
111 # stm32[f4x|f7x] uses the same flash driver as the stm32f2x
112 proc stm32f4x args
{ eval stm32f2x
$args }
113 proc stm32f7x args
{ eval stm32f2x
$args }
115 # stm32lx driver supports both STM32 L0 and L1 devices
116 proc stm32l0x args
{ eval stm32lx
$args }
117 proc stm32l1x args
{ eval stm32lx
$args }
119 # stm32[g0|g4|l5|u5|wb|wl] uses the same flash driver as the stm32l4x
120 proc stm32g0x args
{ eval stm32l4x
$args }
121 proc stm32g4x args
{ eval stm32l4x
$args }
122 proc stm32l5x args
{ eval stm32l4x
$args }
123 proc stm32u5x args
{ eval stm32l4x
$args }
124 proc stm32wbx args
{ eval stm32l4x
$args }
125 proc stm32wlx args
{ eval stm32l4x
$args }
127 # gd32e23x uses the same flash driver as the stm32f1x
128 proc gd32e23x args
{ eval stm32f1x
$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)