Duane Ellis <openocd@duaneellis.com> fix to tcl puts
git-svn-id: svn://svn.berlios.de/openocd/trunk@802 b42882b7-edfa-0310-969c-e2dbd0fdcd60
This commit is contained in:
parent
de6acb2d36
commit
6956527849
|
@ -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 jim_command(command_context_t *context, char *line)
|
||||||
{
|
{
|
||||||
int retval=ERROR_OK;
|
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) {
|
if (retcode == JIM_ERR) {
|
||||||
Jim_PrintErrorMessage(interp);
|
Jim_PrintErrorMessage(interp);
|
||||||
|
|
Loading…
Reference in New Issue