diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-07-24 12:13:01 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-07-24 12:13:01 (GMT) |
| commit | 8f13e41a87de841f8b7552e04e74caeaca8b4b5b (patch) | |
| tree | 1b45a8687e9681ed266b8c4050a00cd7a7030b49 /generic/tclAssembly.c | |
| parent | 1ea19bb4bad3984855b928d2a5213314b1111e47 (diff) | |
| download | tcl-8f13e41a87de841f8b7552e04e74caeaca8b4b5b.zip tcl-8f13e41a87de841f8b7552e04e74caeaca8b4b5b.tar.gz tcl-8f13e41a87de841f8b7552e04e74caeaca8b4b5b.tar.bz2 | |
more disabled code removal
Diffstat (limited to 'generic/tclAssembly.c')
| -rw-r--r-- | generic/tclAssembly.c | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c index 9b9b6f8..6bf2fa8 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -930,11 +930,9 @@ TclCompileAssembleCmd( { Tcl_Token *tokenPtr; /* Token in the input script */ -#if 1 int numCommands = envPtr->numCommands; int offset = envPtr->codeNext - envPtr->codeStart; int depth = envPtr->currStackDepth; -#endif /* * Make sure that the command has a single arg that is a simple word. @@ -956,7 +954,6 @@ TclCompileAssembleCmd( if (TCL_ERROR == TclAssembleCode(envPtr, tokenPtr[1].start, tokenPtr[1].size, TCL_EVAL_DIRECT)) { -#if 1 Tcl_AppendObjToErrorInfo(interp, Tcl_ObjPrintf( "\n (\"%.*s\" body, line %d)", parsePtr->tokenPtr->size, parsePtr->tokenPtr->start, @@ -965,10 +962,6 @@ TclCompileAssembleCmd( envPtr->codeNext = envPtr->codeStart + offset; envPtr->currStackDepth = depth; TclCompileSyntaxError(interp, envPtr); -#else - Tcl_ResetResult(interp); - return TCL_ERROR; -#endif } return TCL_OK; } |