Change-Id: I1d6f4f47ee6f8985c84ddb2647e029c5f4e6a55a
Signed-off-by: Antonio Borneo <borneo.antonio@gmail.com>
Reviewed-on: http://openocd.zylin.com/5194
Tested-by: jenkins
Reviewed-by: Marc Schink <dev@zapb.de>
proc power_restore {} {
echo "Sensed power restore, running reset init and halting GDB."
reset init
proc power_restore {} {
echo "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.
# 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]
+ set targets [target names]
foreach t $targets {
# New event script.
$t invoke-event arp_halt_gdb
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."
}
add_help_text power_restore "Overridable procedure run when power restore is detected. Runs 'reset init' by default."
#
# After GDB is halted, then output is no longer forwarded
# to the GDB console.
#
# After GDB is halted, then output is no longer forwarded
# to the GDB console.
- set targets [target names]
+ set targets [target names]
foreach t $targets {
# New event script.
$t invoke-event arp_halt_gdb
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."
}
add_help_text srst_deasserted "Overridable procedure run when srst deassert is detected. Runs 'reset init' by default."