diff options
author | oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60> | 2008-07-09 22:19:05 +0000 |
---|---|---|
committer | oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60> | 2008-07-09 22:19:05 +0000 |
commit | 92beb99bf75192621a04b8190ea2353ea91f6d6d (patch) | |
tree | c45a5a7aefead97ec09a127f64e15480928eaebe /src/openocd.c | |
parent | 0edbe9145c938993823a0c58bd9469fb42cc5587 (diff) |
improve error messages a little bit.
git-svn-id: svn://svn.berlios.de/openocd/trunk@781 b42882b7-edfa-0310-969c-e2dbd0fdcd60
Diffstat (limited to 'src/openocd.c')
-rw-r--r-- | src/openocd.c | 29 |
1 files changed, 7 insertions, 22 deletions
diff --git a/src/openocd.c b/src/openocd.c index b2a8ade5..50eb99e0 100644 --- a/src/openocd.c +++ b/src/openocd.c @@ -357,35 +357,20 @@ int jim_command(command_context_t *context, char *line) int retval=ERROR_OK; int retcode=Jim_Eval(interp, line); - const char *result; - int reslen; - result = Jim_GetString(Jim_GetResult(interp), &reslen); if (retcode == JIM_ERR) { - int len, i; - - LOG_USER_N("Runtime error, file \"%s\", line %d:" JIM_NL, interp->errorFileName, interp->errorLine); - LOG_USER_N(" %s" JIM_NL, - Jim_GetString(interp->result, NULL)); - Jim_ListLength(interp, interp->stackTrace, &len); - for (i = 0; i < len; i += 3) { - Jim_Obj *objPtr; - const char *proc, *file, *line; - - Jim_ListIndex(interp, interp->stackTrace, i, &objPtr, JIM_NONE); - proc = Jim_GetString(objPtr, NULL); - Jim_ListIndex(interp, interp->stackTrace, i+1, &objPtr, JIM_NONE); - file = Jim_GetString(objPtr, NULL); - Jim_ListIndex(interp, interp->stackTrace, i+2, &objPtr, JIM_NONE); - line = Jim_GetString(objPtr, NULL); - LOG_USER_N("In procedure '%s' called at file \"%s\", line %s" JIM_NL, proc, file, line); - } + Jim_PrintErrorMessage(interp); long t; if (Jim_GetLong(interp, Jim_GetVariableStr(interp, "openocd_result", JIM_ERRMSG), &t)==JIM_OK) { return t; } return ERROR_FAIL; - } else if (retcode == JIM_EXIT) { + } + const char *result; + int reslen; + result = Jim_GetString(Jim_GetResult(interp), &reslen); + + if (retcode == JIM_EXIT) { /* ignore. */ /* exit(Jim_GetExitCode(interp)); */ } else { |