Duane Ellis <openocd@duaneellis.com> fix to tcl puts

git-svn-id: svn://svn.berlios.de/openocd/trunk@802 b42882b7-edfa-0310-969c-e2dbd0fdcd60

diff --git a/src/openocd.c b/src/openocd.c
index dcaca7847abee926d841dfcb3cc4c2969438500e..6c1f57031ee13b70f70d70c70fd0e8236c5e4616 100644 (file)
--- a/src/openocd.c
+++ b/src/openocd.c
@@ -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);