X-Git-Url: https://review.openocd.org/gitweb?p=openocd.git;a=blobdiff_plain;f=src%2Fjtag%2Fstartup.tcl;fp=src%2Fjtag%2Fstartup.tcl;h=8fc3ad5efbeafc333842eff18a1708a572a61cc6;hp=e522e74d69809fa781ce4ec968f6c3bb37ba3ffe;hb=def7318edd6570fb5484d2a4ee19b7ac1fa39f53;hpb=b5c883f298ebd7d459e8247531e6ca3b6dda45cd diff --git a/src/jtag/startup.tcl b/src/jtag/startup.tcl index e522e74d69..8fc3ad5efb 100644 --- a/src/jtag/startup.tcl +++ b/src/jtag/startup.tcl @@ -34,16 +34,16 @@ proc init_reset { mode } { 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. - set targets [target names] + 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." @@ -65,11 +65,11 @@ proc srst_deasserted {} { # # 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 - } + } } add_help_text srst_deasserted "Overridable procedure run when srst deassert is detected. Runs 'reset init' by default."