Artifact
77c8ca96b0f9479d1e10e305c32b8bdc5f55630c:
Attachment "start" to
ticket [926164ffff]
added by
msofer
2005-03-23 01:15:51.
Index: generic/tclExecute.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclExecute.c,v
retrieving revision 1.172
diff -u -r1.172 tclExecute.c
--- generic/tclExecute.c 14 Mar 2005 23:14:08 -0000 1.172
+++ generic/tclExecute.c 22 Mar 2005 18:10:09 -0000
@@ -1301,6 +1301,22 @@
}
}
+ /*
+ * Shortcut INST_START_CMD - is it cheaper to perform this at every
+ * instruction, or to actually execute the INST_START_CMD instruction
+ * every time it is emitted?
+ */
+
+ while ((*pc == INST_START_CMD)
+ && (((codePtr->compileEpoch == iPtr->compileEpoch)
+ && (codePtr->nsEpoch == namespacePtr->resolverEpoch))
+ || (codePtr->flags & TCL_BYTECODE_PRECOMPILED))) {
+
+ iPtr->cmdCount++;
+ pc += 5;
+ }
+
+
switch (*pc) {
case INST_RETURN:
{