summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog5
-rw-r--r--generic/tclExecute.c6
2 files changed, 9 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index 4590952..d2515ea 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2007-08-22 Miguel Sofer <msofer@users.sf.net>
+
+ * generic/tclExecute.c (TEBC): disable the new shortcut to frequent
+ INSTs for debug builds.
+
2007-08-21 Don Porter <dgp@users.sourceforge.net>
* generic/tclMain.c: Corrected the logic of dropping the last
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 3a870e0..d61131e 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.319 2007/08/20 16:52:57 msofer Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.320 2007/08/22 13:30:45 msofer Exp $
*/
#include "tclInt.h"
@@ -1662,12 +1662,14 @@ TclExecuteByteCode(
* reduces total obj size.
*/
+#if !TCL_COMPILE_DEBUG
if (*pc == INST_LOAD_SCALAR1) {
goto instLoadScalar1;
} else if (*pc == INST_PUSH1) {
goto instPush1Peephole;
}
-
+#endif
+
switch (*pc) {
case INST_RETURN_IMM: {
int code = TclGetInt4AtPtr(pc+1);