summaryrefslogtreecommitdiffstats
path: root/generic/tclExecute.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2004-05-17 21:30:11 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2004-05-17 21:30:11 (GMT)
commit92201d56274ec5ce7328aef2e606f27d47274409 (patch)
treedf82c00643ffdd3d1aa1a1ad77a6fa8398ccd043 /generic/tclExecute.c
parent75b04e4a226527d290affcdb2ed3ef4e8982b868 (diff)
downloadtcl-92201d56274ec5ce7328aef2e606f27d47274409.zip
tcl-92201d56274ec5ce7328aef2e606f27d47274409.tar.gz
tcl-92201d56274ec5ce7328aef2e606f27d47274409.tar.bz2
Improved TIP#143 tests and now track the number of bytecoded commands better.
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r--generic/tclExecute.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index c61f3f1..7d141bd 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.133 2004/05/17 02:36:46 msofer Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.134 2004/05/17 21:30:12 dkf Exp $
*/
#include "tclInt.h"
@@ -1343,7 +1343,8 @@ TclExecuteByteCode(interp, codePtr)
* its compileEpoch is modified, so that the epoch
* check also verifies that the interp is not deleted.
*/
-
+
+ iPtr->cmdCount++;
if (((codeCompileEpoch == iPtr->compileEpoch)
&& (codeNsEpoch == namespacePtr->resolverEpoch))
|| codePrecompiled) {