1 # Defines basic Tcl procs for OpenOCD flash module
5 # usage: program filename
6 # optional args: verify, reset, exit and address
9 lappend _telnet_autocomplete_skip program_error
10 proc program_error
{description
exit} {
19 proc program
{filename args
} {
24 if {[string equal
$arg "preverify"]} {
26 } elseif
{[string equal
$arg "verify"]} {
28 } elseif
{[string equal
$arg "reset"]} {
30 } elseif
{[string equal
$arg "exit"]} {
38 set filename \{$filename\}
39 if {[info exists address
]} {
40 set flash_args
"$filename $address"
42 set flash_args
"$filename"
46 # make sure init is called
47 if {[catch {init
}] != 0} {
48 program_error
"** OpenOCD init failed **" 1
51 # reset target and call any init scripts
52 if {[catch {reset init
}] != 0} {
53 program_error
"** Unable to reset target **" $exit
56 # Check whether programming is needed
57 if {[info exists preverify
]} {
58 echo
"**pre-verifying**"
59 if {[catch {eval verify_image
$flash_args}] == 0} {
60 echo
"**Verified OK - No flashing**"
65 # start programming phase
66 if {$needsflash == 1} {
67 echo
"** Programming Started **"
69 if {[catch {eval flash write_image erase
$flash_args}] == 0} {
70 echo
"** Programming Finished **"
71 if {[info exists verify
]} {
73 echo
"** Verify Started **"
74 if {[catch {eval verify_image
$flash_args}] == 0} {
75 echo
"** Verified OK **"
77 program_error
"** Verify Failed **" $exit
81 program_error
"** Programming Failed **" $exit
85 if {[info exists reset
]} {
86 # reset target if requested
88 # also disable target polling, we are shutting down anyway
91 echo
"** Resetting Target **"
102 add_help_text program
"write an image to flash, address is only required for binary images. verify, reset, exit are optional"
103 add_usage_text program
"<filename> \[address\] \[pre-verify\] \[verify\] \[reset\] \[exit\]"
105 # stm32[f0x|f3x] uses the same flash driver as the stm32f1x
106 proc stm32f0x args
{ eval stm32f1x
$args }
107 proc stm32f3x args
{ eval stm32f1x
$args }
109 # stm32[f4x|f7x] uses the same flash driver as the stm32f2x
110 proc stm32f4x args
{ eval stm32f2x
$args }
111 proc stm32f7x args
{ eval stm32f2x
$args }
113 # stm32lx driver supports both STM32 L0 and L1 devices
114 proc stm32l0x args
{ eval stm32lx
$args }
115 proc stm32l1x args
{ eval stm32lx
$args }
117 # stm32[g0|g4|l5|u5|wb|wl] uses the same flash driver as the stm32l4x
118 proc stm32g0x args
{ eval stm32l4x
$args }
119 proc stm32g4x args
{ eval stm32l4x
$args }
120 proc stm32l5x args
{ eval stm32l4x
$args }
121 proc stm32u5x args
{ eval stm32l4x
$args }
122 proc stm32wbx args
{ eval stm32l4x
$args }
123 proc stm32wlx args
{ eval stm32l4x
$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)