diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2001-11-20 19:45:19 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2001-11-20 19:45:19 (GMT) |
| commit | 6a486a8037e4f19601182dd4ff17bf7ba9d7ce38 (patch) | |
| tree | e0a52e0971a8aa816d4be0d839763b106111c61a /generic/tclExecute.c | |
| parent | f65f73ec08266d7dd392834136232173690604a8 (diff) | |
| download | tcl-6a486a8037e4f19601182dd4ff17bf7ba9d7ce38.zip tcl-6a486a8037e4f19601182dd4ff17bf7ba9d7ce38.tar.gz tcl-6a486a8037e4f19601182dd4ff17bf7ba9d7ce38.tar.bz2 | |
a better variant of the previous-to-last commit (restoring numLevels computations)
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 15 |
1 files changed, 3 insertions, 12 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 7bb78fa..cb3b5cc 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -11,7 +11,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.39 2001/11/20 16:52:46 msofer Exp $ + * RCS: @(#) $Id: tclExecute.c,v 1.40 2001/11/20 19:45:19 msofer Exp $ */ #include "tclInt.h" @@ -765,13 +765,7 @@ TclExecuteByteCode(interp, codePtr) for (tracePtr = iPtr->tracePtr; tracePtr != NULL; tracePtr = nextTracePtr) { nextTracePtr = tracePtr->nextPtr; - - /* - * TclEvalObjvInternal will increment numLevels - * so use "<" rather than "<=" - */ - - if (iPtr->numLevels < tracePtr->level) { + if (iPtr->numLevels <= tracePtr->level) { /* * Traces will be called: get command string */ @@ -795,15 +789,12 @@ TclExecuteByteCode(interp, codePtr) preservedStack = stackPtr; /* - * Finally, let TclEvalObjvInternal handle the command. As it - * will increase the numLevels, decrease them here to compensate. + * Finally, let TclEvalObjvInternal handle the command. */ - iPtr->numLevels--; DECACHE_STACK_INFO(); result = TclEvalObjvInternal(interp, objc, objv, bytes, length, 0); CACHE_STACK_INFO(); - iPtr->numLevels++; /* * If the old stack is going to be released, it is |