diff options
| author | oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60> | 2008-09-01 07:20:21 +0000 |
|---|---|---|
| committer | oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60> | 2008-09-01 07:20:21 +0000 |
| commit | ef1cfb23947bd32798077c6abb5c25a049460ae9 (patch) | |
| tree | 678815a1db1e3d0ab37eb6ad8919b288cfb9a420 /src/helper/command.c | |
| parent | 3c8ef2c41baea675526af28f01008fcb550f8748 (diff) | |
| download | openocd+libswd-ef1cfb23947bd32798077c6abb5c25a049460ae9.tar.gz openocd+libswd-ef1cfb23947bd32798077c6abb5c25a049460ae9.tar.bz2 openocd+libswd-ef1cfb23947bd32798077c6abb5c25a049460ae9.tar.xz openocd+libswd-ef1cfb23947bd32798077c6abb5c25a049460ae9.zip | |
Duane Ellis: "target as an [tcl] object" feature.
git-svn-id: svn://svn.berlios.de/openocd/trunk@975 b42882b7-edfa-0310-969c-e2dbd0fdcd60
Diffstat (limited to 'src/helper/command.c')
| -rw-r--r-- | src/helper/command.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/helper/command.c b/src/helper/command.c index c4edcc7f..9719d186 100644 --- a/src/helper/command.c +++ b/src/helper/command.c @@ -210,7 +210,7 @@ command_t* register_command(command_context_t *context, command_t *parent, char /* we now need to add an overrideable proc */ const char *override_name=alloc_printf("proc %s%s%s {args} {if {[catch {eval \"ocd_%s%s%s $args\"}]==0} {return \"\"} else { return -code error }", t1, t2, t3, t1, t2, t3); - Jim_Eval(interp, override_name); + Jim_Eval_Named(interp, override_name, __FILE__, __LINE__ ); free((void *)override_name); /* accumulate help text in Tcl helptext list. */ @@ -430,7 +430,7 @@ int command_run_line(command_context_t *context, char *line) retcode = Jim_SetAssocData(interp, "retval", NULL, &retval); if (retcode == JIM_OK) { - retcode = Jim_Eval(interp, line); + retcode = Jim_Eval_Named(interp, line, __FILE__, __LINE__ ); Jim_DeleteAssocData(interp, "retval"); } @@ -658,7 +658,7 @@ command_context_t* command_init() #ifdef JIM_EMBEDDED Jim_EventLoopOnLoad(interp); #endif - if (Jim_Eval(interp, startup_tcl)==JIM_ERR) + if (Jim_Eval_Named(interp, startup_tcl, "embedded:startup.tcl",1)==JIM_ERR) { LOG_ERROR("Failed to run startup.tcl (embedded into OpenOCD compile time)"); Jim_PrintErrorMessage(interp); |