90 lines
2.6 KiB
Tcl
90 lines
2.6 KiB
Tcl
# Defines basic Tcl procs for OpenOCD JTAG module
|
|
|
|
# Executed during "init". Can be overridden
|
|
# by board/target/... scripts
|
|
proc jtag_init {} {
|
|
if {[catch {jtag arp_init} err]!=0} {
|
|
# try resetting additionally
|
|
init_reset startup
|
|
}
|
|
}
|
|
|
|
# This reset logic may be overridden by board/target/... scripts as needed
|
|
# to provide a reset that, if possible, is close to a power-up reset.
|
|
#
|
|
# Exit requirements include: (a) JTAG must be working, (b) the scan
|
|
# chain was validated with "jtag arp_init" (or equivalent), (c) nothing
|
|
# stays in reset. No TAP-specific scans were performed. It's OK if
|
|
# some targets haven't been reset yet; they may need TAP-specific scans.
|
|
#
|
|
# The "mode" values include: halt, init, run (from "reset" command);
|
|
# startup (at OpenOCD server startup, when JTAG may not yet work); and
|
|
# potentially more (for reset types like cold, warm, etc)
|
|
proc init_reset { mode } {
|
|
jtag arp_init-reset
|
|
}
|
|
|
|
#########
|
|
|
|
# TODO: power_restore and power_dropout are currently neither
|
|
# documented nor supported except on ZY1000.
|
|
|
|
proc power_restore {} {
|
|
puts "Sensed power restore, running reset init and halting GDB."
|
|
reset init
|
|
|
|
# Halt GDB so user can deal with a detected power restore.
|
|
#
|
|
# After GDB is halted, then output is no longer forwarded
|
|
# to the GDB console.
|
|
set targets [target names]
|
|
foreach t $targets {
|
|
# New event script.
|
|
$t invoke-event arp_halt_gdb
|
|
}
|
|
}
|
|
|
|
add_help_text power_restore "Overridable procedure run when power restore is detected. Runs 'reset init' by default."
|
|
|
|
proc power_dropout {} {
|
|
puts "Sensed power dropout."
|
|
}
|
|
|
|
#########
|
|
|
|
# TODO: srst_deasserted and srst_asserted are currently neither
|
|
# documented nor supported except on ZY1000.
|
|
|
|
proc srst_deasserted {} {
|
|
puts "Sensed nSRST deasserted, running reset init and halting GDB."
|
|
reset init
|
|
|
|
# Halt GDB so user can deal with a detected reset.
|
|
#
|
|
# After GDB is halted, then output is no longer forwarded
|
|
# to the GDB console.
|
|
set targets [target names]
|
|
foreach t $targets {
|
|
# New event script.
|
|
$t invoke-event arp_halt_gdb
|
|
}
|
|
}
|
|
|
|
add_help_text srst_deasserted "Overridable procedure run when srst deassert is detected. Runs 'reset init' by default."
|
|
|
|
proc srst_asserted {} {
|
|
puts "Sensed nSRST asserted."
|
|
}
|
|
|
|
# BEGIN MIGRATION AIDS ... these adapter operations originally had
|
|
# JTAG-specific names despite the fact that the operations were not
|
|
# specific to JTAG.
|
|
#
|
|
# FIXME phase these aids out after about April 2011
|
|
#
|
|
proc jtag_khz args { eval adapter_khz $args }
|
|
proc jtag_nsrst_delay args { eval adapter_nsrst_delay $args }
|
|
proc jtag_nsrst_assert_width args { eval adapter_nsrst_assert_width $args }
|
|
|
|
# END MIGRATION AIDS
|