diff options
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r-- | generic/tclExecute.c | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index cbeaba3..05896f1 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -2817,23 +2817,6 @@ TEBCresume( TEBC_YIELD(); iPtr->numLevels++; - if (TCL_OK == TclInterpReady(interp)) { - /* - * If everything is OK, avoid going to TclNREvalObjv and do the - * job directly here. - */ - - Command *cmdPtr = (Command *) Tcl_GetCommandFromObj(interp, objv[0]); - if (cmdPtr && !(cmdPtr->flags & CMD_HAS_EXEC_TRACES) && !iPtr->tracePtr ) { - iPtr->ensembleRewrite.sourceObjs = NULL; - TclNRAddCallback(interp, NRCommand, NULL, NULL, NULL, NULL); - if (cmdPtr->nreProc) { - return cmdPtr->nreProc(cmdPtr->objClientData, interp, objc, objv); - } else { - return cmdPtr->objProc(cmdPtr->objClientData, interp, objc, objv); - } - } - } iPtr->numLevels--; return TclNREvalObjv(interp, objc, objv, TCL_EVAL_NOERR | TCL_EVAL_SOURCE_IN_FRAME, NULL); |