19f219f731
This patch might influence openocd Tcl commands behaviour in subtle ways, please give it a nice testing. The idea is that if an OpenOCD Tcl command returns an error, an exception is raised, and then the return code is propogated all the way up (or to the "catch" if present). This allows to detect "shutdown" which is not actually an error but has to raise an exception to stop execution of the commands that follow it in the script. openocd_thread special-cases shutdown because it should then terminate OpenOCD with a success error code, unless shutdown was called with an optional "error" argument which means terminate with a non-zero exit code. Change-Id: I7b6fa8a2e24c947dc45d8def0008b4b007c478b3 Signed-off-by: Paul Fertser <fercerpav@gmail.com> Reviewed-on: http://openocd.zylin.com/2600 Tested-by: jenkins Reviewed-by: Juha Niskanen <juha.niskanen@haltian.com> Reviewed-by: Jens Bauer <jens@gpio.dk> Reviewed-by: Oleksij Rempel <linux@rempel-privat.de>
111 lines
2.4 KiB
Tcl
111 lines
2.4 KiB
Tcl
# Defines basic Tcl procs for OpenOCD flash module
|
|
|
|
#
|
|
# program utility proc
|
|
# usage: program filename
|
|
# optional args: verify, reset, exit and address
|
|
#
|
|
|
|
proc program_error {description exit} {
|
|
if {$exit == 1} {
|
|
echo $description
|
|
shutdown error
|
|
}
|
|
|
|
error $description
|
|
}
|
|
|
|
proc program {filename args} {
|
|
set exit 0
|
|
|
|
foreach arg $args {
|
|
if {[string equal $arg "verify"]} {
|
|
set verify 1
|
|
} elseif {[string equal $arg "reset"]} {
|
|
set reset 1
|
|
} elseif {[string equal $arg "exit"]} {
|
|
set exit 1
|
|
} else {
|
|
set address $arg
|
|
}
|
|
}
|
|
|
|
# make sure init is called
|
|
if {[catch {init}] != 0} {
|
|
program_error "** OpenOCD init failed **" 1
|
|
}
|
|
|
|
# reset target and call any init scripts
|
|
if {[catch {reset init}] != 0} {
|
|
program_error "** Unable to reset target **" $exit
|
|
}
|
|
|
|
# start programming phase
|
|
echo "** Programming Started **"
|
|
if {[info exists address]} {
|
|
set flash_args "$filename $address"
|
|
} else {
|
|
set flash_args "$filename"
|
|
}
|
|
|
|
if {[catch {eval flash write_image erase $flash_args}] == 0} {
|
|
echo "** Programming Finished **"
|
|
if {[info exists verify]} {
|
|
# verify phase
|
|
echo "** Verify Started **"
|
|
if {[catch {eval verify_image $flash_args}] == 0} {
|
|
echo "** Verified OK **"
|
|
} else {
|
|
program_error "** Verify Failed **" $exit
|
|
}
|
|
}
|
|
|
|
if {[info exists reset]} {
|
|
# reset target if requested
|
|
# also disable target polling, we are shutting down anyway
|
|
poll off
|
|
echo "** Resetting Target **"
|
|
reset run
|
|
}
|
|
} else {
|
|
program_error "** Programming Failed **" $exit
|
|
}
|
|
|
|
if {$exit == 1} {
|
|
shutdown
|
|
}
|
|
return
|
|
}
|
|
|
|
add_help_text program "write an image to flash, address is only required for binary images. verify, reset, exit are optional"
|
|
add_usage_text program "<filename> \[address\] \[verify\] \[reset\] \[exit\]"
|
|
|
|
# stm32f0x uses the same flash driver as the stm32f1x
|
|
# this alias enables the use of either name.
|
|
proc stm32f0x args {
|
|
eval stm32f1x $args
|
|
}
|
|
|
|
# stm32f3x uses the same flash driver as the stm32f1x
|
|
# this alias enables the use of either name.
|
|
proc stm32f3x args {
|
|
eval stm32f1x $args
|
|
}
|
|
|
|
# stm32f4x uses the same flash driver as the stm32f2x
|
|
# this alias enables the use of either name.
|
|
proc stm32f4x args {
|
|
eval stm32f2x $args
|
|
}
|
|
|
|
# ease migration to updated flash driver
|
|
proc stm32x args {
|
|
echo "DEPRECATED! use 'stm32f1x $args' not 'stm32x $args'"
|
|
eval stm32f1x $args
|
|
}
|
|
|
|
proc stm32f2xxx args {
|
|
echo "DEPRECATED! use 'stm32f2x $args' not 'stm32f2xxx $args'"
|
|
eval stm32f2x $args
|
|
}
|