zcy
/
tinyriscv-openocd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

gdb: restore behavior from 0.3.1 for srst_asserted and power_restore 

srst_asserted and power_restore can now be overriden to do
nothing. By default they will "reset init" the targets and
halt gdb.

Signed-off-by: Øyvind Harboe <oyvind.harboe@zylin.com>
__archive__
Øyvind Harboe 2010-01-31 21:02:06 +01:00
parent 82f2492138
commit 91e3268737
2 changed files with 46 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
src/jtag/startup.tcl
View File

@ -30,8 +30,18 @@ proc init_reset { mode } {
# documented nor supported except on ZY1000.
proc power_restore {} {
puts "Sensed 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."
@ -46,9 +56,20 @@ proc power_dropout {} {
# documented nor supported except on ZY1000.
proc srst_deasserted {} {
puts "Sensed nSRST 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 {} {

36
src/target/target.c
View File

@ -1739,15 +1739,6 @@ static int sense_handler(void)
return ERROR_OK;
}
static void target_call_event_callbacks_all(enum target_event e) {
struct target *target;
target = all_targets;
while (target) {
target_call_event_callbacks(target, e);
target = target->next;
}
}
/* process target state changes */
static int handle_target(void *priv)
{
@ -1767,8 +1758,7 @@ static int handle_target(void *priv)
int did_something = 0;
if (runSrstAsserted)
{
LOG_INFO("Waking up GDB, srst asserted detected.");
target_call_event_callbacks_all(TARGET_EVENT_GDB_HALT);
LOG_INFO("srst asserted detected, running srst_asserted proc.");
Jim_Eval(interp, "srst_asserted");
did_something = 1;
}
@ -1779,8 +1769,7 @@ static int handle_target(void *priv)
}
if (runPowerDropout)
{
LOG_INFO("Waking up GDB, power dropout detected.");
target_call_event_callbacks_all(TARGET_EVENT_GDB_HALT);
LOG_INFO("Power dropout detected, running power_dropout proc.");
Jim_Eval(interp, "power_dropout");
did_something = 1;
}
@ -4065,6 +4054,21 @@ static int jim_target_examine(Jim_Interp *interp, int argc, Jim_Obj *const *argv
return JIM_OK;
}
static int jim_target_halt_gdb(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
{
if (argc != 1)
{
Jim_WrongNumArgs(interp, 1, argv, "[no parameters]");
return JIM_ERR;
}
struct target *target = Jim_CmdPrivData(interp);
if (target_call_event_callbacks(target, TARGET_EVENT_GDB_HALT) != ERROR_OK)
return JIM_ERR;
return JIM_OK;
}
static int jim_target_poll(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
{
if (argc != 1)
@ -4345,6 +4349,12 @@ static const struct command_registration target_instance_command_handlers[] = {
.jim_handler = jim_target_examine,
.help = "used internally for reset processing",
},
{
.name = "arp_halt_gdb",
.mode = COMMAND_EXEC,
.jim_handler = jim_target_halt_gdb,
.help = "used internally for reset processing to halt GDB",
},
{
.name = "arp_poll",
.mode = COMMAND_EXEC,