mirror of
git://git.code.sf.net/p/openocd/code
synced 2025-07-20 01:36:35 +10:00
573a39b36c
For historical reasons, no license information was added to the
tcl files. This makes trivial adding the SPDX tag through script:
fgrep -rL SPDX tcl | while read a;do \
sed -i '1{i# SPDX-License-Identifier: GPL-2.0-or-later\n
}' $a;done
With no specific license information from the author, let's extend
the OpenOCD project license GPL-2.0-or-later to the files.
Change-Id: Ief3da306a6e1978de7dfb8f552f9ff23151f9944
Signed-off-by: Antonio Borneo <borneo.antonio@gmail.com>
Reviewed-on: https://review.openocd.org/c/openocd/+/7030
Tested-by: jenkins
78 lines
1.8 KiB
Tcl
78 lines
1.8 KiB
Tcl
# SPDX-License-Identifier: GPL-2.0-or-later
|
|
|
|
# Quirks to bypass missing SRST on JTAG connector
|
|
# EVALSPEAr310 Rev. 2.0
|
|
# http://www.st.com/spear
|
|
#
|
|
# Date: 2010-08-17
|
|
# Author: Antonio Borneo <borneo.antonio@gmail.com>
|
|
|
|
# For boards that have JTAG SRST not connected.
|
|
# We use "arm9 vector_catch reset" to catch button reset event.
|
|
|
|
|
|
$_TARGETNAME configure -event reset-assert sp_reset_assert
|
|
$_TARGETNAME configure -event reset-deassert-post sp_reset_deassert_post
|
|
|
|
# keeps the name of the SPEAr target
|
|
global sp_target_name
|
|
set sp_target_name $_TARGETNAME
|
|
|
|
# Keeps the argument of "reset" command (run, init, halt).
|
|
global sp_reset_mode
|
|
set sp_reset_mode ""
|
|
|
|
# Helper procedure. Returns 0 is target is halted.
|
|
proc sp_is_halted {} {
|
|
global sp_target_name
|
|
|
|
return [expr {[string compare [$sp_target_name curstate] "halted" ] == 0}]
|
|
}
|
|
|
|
# wait for reset button to be pressed, causing CPU to get halted
|
|
proc sp_reset_deassert_post {} {
|
|
global sp_reset_mode
|
|
|
|
set bar(0) |
|
|
set bar(1) /
|
|
set bar(2) -
|
|
set bar(3) \\
|
|
|
|
poll on
|
|
echo "====> Press reset button on the board <===="
|
|
for {set i 0} { [sp_is_halted] == 0 } { set i [expr {$i + 1}]} {
|
|
echo -n "$bar([expr {$i & 3}])\r"
|
|
sleep 200
|
|
}
|
|
|
|
# Remove catch reset event
|
|
arm9 vector_catch none
|
|
|
|
# CPU is halted, but we typed "reset run" ...
|
|
if { [string compare $sp_reset_mode "run"] == 0 } {
|
|
resume
|
|
}
|
|
}
|
|
|
|
# Override reset-assert, since no SRST available
|
|
# Catch reset event
|
|
proc sp_reset_assert {} {
|
|
arm9 vector_catch reset
|
|
}
|
|
|
|
# Override default init_reset{mode} to catch parameter "mode"
|
|
proc init_reset {mode} {
|
|
global sp_reset_mode
|
|
|
|
set sp_reset_mode $mode
|
|
|
|
# We need to detect CPU get halted, so exit from halt
|
|
if { [sp_is_halted] } {
|
|
echo "Resuming CPU to detect reset"
|
|
resume
|
|
}
|
|
|
|
# Execute default init_reset{mode}
|
|
jtag arp_init-reset
|
|
}
|