interesting
/
riscv-openocd
mirror of https://github.com/riscv/riscv-openocd.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

provide command context during cmd_init 

For the startup.tcl code to use built-in commands, the context must be
associated with the interpreter temporarily.  This will be required to
add help text.
This commit is contained in:
Zachary T Welch 2009-11-20 09:11:39 -08:00
parent 5458fef43c
commit e5b0a69ba9
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/helper/command.c
View File

@ -869,12 +869,14 @@ struct command_context* command_init(const char *startup_tcl)
#if !BUILD_ECOSBOARD #if !BUILD_ECOSBOARD
Jim_EventLoopOnLoad(interp); Jim_EventLoopOnLoad(interp);
#endif #endif
Jim_SetAssocData(interp, "context", NULL, context);
if (Jim_Eval_Named(interp, startup_tcl, "embedded:startup.tcl",1) == JIM_ERR) if (Jim_Eval_Named(interp, startup_tcl, "embedded:startup.tcl",1) == JIM_ERR)
{ {
LOG_ERROR("Failed to run startup.tcl (embedded into OpenOCD)"); LOG_ERROR("Failed to run startup.tcl (embedded into OpenOCD)");
Jim_PrintErrorMessage(interp); Jim_PrintErrorMessage(interp);
exit(-1); exit(-1);
} }
Jim_DeleteAssocData(interp, "context");
register_command(context, NULL, "sleep", register_command(context, NULL, "sleep",
handle_sleep_command, COMMAND_ANY, handle_sleep_command, COMMAND_ANY,