* Copyright (c) 1994-2000.
*
* $RCSfile: Interpreter.c,v $
- * $Revision: 1.27 $
- * $Date: 2001/08/07 09:02:02 $
+ * $Revision: 1.28 $
+ * $Date: 2001/08/09 11:19:16 $
* ---------------------------------------------------------------------------*/
#include "Rts.h"
scheduler. Ie normally you don't want REFERENCE_INTERPRETER to be
defined. */
-/* #define REFERENCE_INTERPRETER */
+#define REFERENCE_INTERPRETER
/* Gather stats about entry, opcode, opcode-pair frequencies. For
tuning the interpreter. */
}
}
}
+ case bci_SWIZZLE: {
+ int stkoff = BCO_NEXT;
+ signed short n = (signed short)(BCO_NEXT);
+ StackWord(stkoff) += (W_)n;
+ goto nextInsn;
+ }
case bci_CCALL: {
StgInt tok;
int o_itbl = BCO_NEXT;