e6505b0489
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/ target| 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: I7b2610300b24cccd07bfa6fb5f1266970d5d3a1b
Signed-off-by: Antonio Borneo <borneo.antonio@gmail.com>
Reviewed-on: https://review.openocd.org/c/openocd/+/7027
Tested-by: jenkins
38 lines
1.1 KiB
Tcl
38 lines
1.1 KiB
Tcl
# SPDX-License-Identifier: GPL-2.0-or-later
|
|
|
|
# ARM Debug Interface V5 (ADI_V5) utility
|
|
# ... Mostly for SWJ-DP (not SW-DP or JTAG-DP, since
|
|
# SW-DP and JTAG-DP targets don't need to switch based
|
|
# on which transport is active.
|
|
#
|
|
# declare a JTAG or SWD Debug Access Point (DAP)
|
|
# based on the transport in use with this session.
|
|
# You can't access JTAG ops when SWD is active, etc.
|
|
|
|
# params are currently what "jtag newtap" uses
|
|
# because OpenOCD internals are still strongly biased
|
|
# to JTAG .... but for SWD, "irlen" etc are ignored,
|
|
# and the internals work differently
|
|
|
|
# for now, ignore non-JTAG and non-SWD transports
|
|
# (e.g. initial flash programming via SPI or UART)
|
|
|
|
# split out "chip" and "tag" so we can someday handle
|
|
# them more uniformly irlen too...)
|
|
|
|
if [catch {transport select}] {
|
|
echo "Error: unable to select a session transport. Can't continue."
|
|
shutdown
|
|
}
|
|
|
|
proc swj_newdap {chip tag args} {
|
|
if [using_jtag] {
|
|
eval jtag newtap $chip $tag $args
|
|
} elseif [using_swd] {
|
|
eval swd newdap $chip $tag $args
|
|
} else {
|
|
echo "Error: transport '[ transport select ]' not supported by swj_newdap"
|
|
shutdown
|
|
}
|
|
}
|