summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2007-04-07 05:34:29 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2007-04-07 05:34:29 (GMT)
commit56cc087c0f4712ca26899cc96f96d3ca1557884b (patch)
tree1e5a777d3e17012e2e279ae3180b29ecafab0754 /generic
parentb3bd6ba72b8c833450ca433b5f10621536e7c416 (diff)
downloadtcl-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.c27
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);
}