Duane Ellis <openocd@duaneellis.com> fix to tcl puts
authoroharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Sun, 13 Jul 2008 08:25:33 +0000 (08:25 +0000)
committeroharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Sun, 13 Jul 2008 08:25:33 +0000 (08:25 +0000)
git-svn-id: svn://svn.berlios.de/openocd/trunk@802 b42882b7-edfa-0310-969c-e2dbd0fdcd60

src/openocd.c

index dcaca78..6c1f570 100644 (file)
@@ -499,7 +499,10 @@ static void tcl_output(void *privData, const char *file, int line, const char *f
 int jim_command(command_context_t *context, char *line)
 {
        int retval=ERROR_OK;
-       int retcode=Jim_Eval(interp, line);
+       int retcode;
+
+       active_cmd_ctx = context;
+       retcode = Jim_Eval(interp, line);
        
        if (retcode == JIM_ERR) {
                Jim_PrintErrorMessage(interp);