Browse Source

jimtcl: delete OpenOCD's broken 'stacktrace' command

Use "info stacktrace" instead. This fixes build problems with
latest Jim Tcl.
tags/v0.6.0-rc1
Øyvind Harboe 12 years ago
parent
commit
9779a2bf1a
1 changed files with 0 additions and 31 deletions
  1. +0
    -31
      src/openocd.c

+ 0
- 31
src/openocd.c View File

@@ -184,29 +184,6 @@ COMMAND_HANDLER(handle_add_script_search_dir_command)
return ERROR_OK; return ERROR_OK;
} }



static int jim_stacktrace_command(Jim_Interp *interp, int argc,
Jim_Obj * const *argv)
{
if (argc != 1)
{
return JIM_ERR;
}
Jim_Obj * stacktrace = Jim_DuplicateObj(interp, interp->stackTrace);
/* insert actual error site at beginning of list*/
Jim_Obj *procname = Jim_NewStringObj(interp, "", -1); /* Uhhh... don't know this one. */
Jim_ListInsertElements(interp, stacktrace, 0, 1, &procname);
Jim_Obj *filename = Jim_NewStringObj(interp, interp->errorFileName, -1);
Jim_ListInsertElements(interp, stacktrace, 1, 1, &filename);
Jim_Obj *line = Jim_NewIntObj(interp, interp->errorLine);
Jim_ListInsertElements(interp, stacktrace, 2, 1, &line);

Jim_SetResult(interp, stacktrace);

return JIM_OK;
}

static const struct command_registration openocd_command_handlers[] = { static const struct command_registration openocd_command_handlers[] = {
{ {
.name = "version", .name = "version",
@@ -237,14 +214,6 @@ static const struct command_registration openocd_command_handlers[] = {
.help = "dir to search for config files and scripts", .help = "dir to search for config files and scripts",


}, },
{
.name = "stacktrace",
.jim_handler = jim_stacktrace_command,
.mode = COMMAND_ANY,
.help = "returns the stacktrace as a list of triples: proc, file, line."
"The stack trace is reset when a new stack trace is being built after "
"a new failure has occurred.",
},
COMMAND_REGISTRATION_DONE COMMAND_REGISTRATION_DONE
}; };




Loading…
Cancel
Save