diff options
| author | sewardj <unknown> | 2001-08-09 11:19:16 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2001-08-09 11:19:16 +0000 |
| commit | 4ee658a72d01e21315a5467f66a6fd36f139e306 (patch) | |
| tree | cc21c0270929a0ef048f536538fc928e92bf43fb /ghc/rts/Interpreter.c | |
| parent | 70b37ccbd9d1448f9a8311f2ead5eff35d919b07 (diff) | |
| download | haskell-4ee658a72d01e21315a5467f66a6fd36f139e306.tar.gz | |
[project @ 2001-08-09 11:19:16 by sewardj]
C-side FFI support for Byte/Ptr arrays.
Diffstat (limited to 'ghc/rts/Interpreter.c')
| -rw-r--r-- | ghc/rts/Interpreter.c | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/ghc/rts/Interpreter.c b/ghc/rts/Interpreter.c index cb78cddb3d..cf5b99fed8 100644 --- a/ghc/rts/Interpreter.c +++ b/ghc/rts/Interpreter.c @@ -5,8 +5,8 @@ * 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" @@ -37,7 +37,7 @@ 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. */ @@ -763,6 +763,12 @@ StgThreadReturnCode interpretBCO ( Capability* cap ) } } } + 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; |