From: oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Date: Sun, 13 Jul 2008 08:25:33 +0000 (+0000)
Subject: Duane Ellis <openocd@duaneellis.com> fix to tcl puts
X-Git-Tag: v0.1.0~495
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=6956527849370062f059a2e63f30936595b48825;p=openocd

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 dcaca784..6c1f5703 100644
--- 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);