diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2007-04-07 05:34:29 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2007-04-07 05:34:29 (GMT) |
| commit | 56cc087c0f4712ca26899cc96f96d3ca1557884b (patch) | |
| tree | 1e5a777d3e17012e2e279ae3180b29ecafab0754 /generic | |
| parent | b3bd6ba72b8c833450ca433b5f10621536e7c416 (diff) | |
| download | tcl-56cc087c0f4712ca26899cc96f96d3ca1557884b.zip tcl-56cc087c0f4712ca26899cc96f96d3ca1557884b.tar.gz tcl-56cc087c0f4712ca26899cc96f96d3ca1557884b.tar.bz2 | |
* generic/tclExecute.c (TEBC): small code reduction.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclExecute.c | 27 |
1 files changed, 2 insertions, 25 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 5ad6717..62f4f88 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclExecute.c,v 1.270 2007/04/06 22:36:49 msofer Exp $ + * RCS: @(#) $Id: tclExecute.c,v 1.271 2007/04/07 05:34:30 msofer Exp $ */ #include "tclInt.h" @@ -1828,7 +1828,6 @@ TclExecuteByteCode( if (result == TCL_OK && Tcl_LimitReady(interp)) { result = Tcl_LimitCheck(interp); } - } else { /* @@ -1837,29 +1836,7 @@ TclExecuteByteCode( * will be made there to include the ending \0. */ - if (!cmdPtr || (cmdPtr->flags & CMD_HAS_EXEC_TRACES)) { - bytes = GetSrcInfoForPc(pc, codePtr, &length); - } else { - Trace *tracePtr, *nextTracePtr; - - bytes = NULL; - length = 0; - - for (tracePtr = iPtr->tracePtr; tracePtr != NULL; - tracePtr = nextTracePtr) { - nextTracePtr = tracePtr->nextPtr; - if (tracePtr->level == 0 || - iPtr->numLevels <= tracePtr->level) { - /* - * Traces will be called: get command string - */ - - bytes = GetSrcInfoForPc(pc, codePtr, &length); - break; - } - } - } - + bytes = GetSrcInfoForPc(pc, codePtr, &length); result = TclEvalObjvInternal(interp, objc, objv, bytes, length, 0); } |