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/server/tcl_server.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/server/tcl_server.c')
| -rw-r--r-- | src/server/tcl_server.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/server/tcl_server.c b/src/server/tcl_server.c index 2f4c1899..8d2a0f71 100644 --- a/src/server/tcl_server.c +++ b/src/server/tcl_server.c @@ -143,7 +143,7 @@ static int tcl_input(connection_t *connection) } else { tclc->tc_line[tclc->tc_lineoffset-1] = '\0'; - retval = Jim_Eval(interp, tclc->tc_line); + retval = Jim_Eval_Named(interp, tclc->tc_line, "remote:connection",1); result = Jim_GetString(Jim_GetResult(interp), &reslen); retval = tcl_output(connection, result, reslen); if (retval != ERROR_OK) |