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/Disassembler.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/Disassembler.c')
| -rw-r--r-- | ghc/rts/Disassembler.c | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/ghc/rts/Disassembler.c b/ghc/rts/Disassembler.c index e0b27e932d..574f0a8c43 100644 --- a/ghc/rts/Disassembler.c +++ b/ghc/rts/Disassembler.c @@ -5,8 +5,8 @@ * Copyright (c) 1994-1998. * * $RCSfile: Disassembler.c,v $ - * $Revision: 1.22 $ - * $Date: 2001/08/02 17:01:33 $ + * $Revision: 1.23 $ + * $Date: 2001/08/09 11:19:16 $ * ---------------------------------------------------------------------------*/ #ifdef DEBUG @@ -44,9 +44,13 @@ int disInstr ( StgBCO *bco, int pc ) StgInfoTable** itbls = (StgInfoTable**)(&itbls_arr->payload[0]); switch (instrs[pc++]) { + case bci_SWIZZLE: + fprintf(stderr, "SWIZZLE stkoff %d by %d\n", + instrs[pc], (signed int)instrs[pc+1]); + pc += 2; break; case bci_CCALL: fprintf(stderr, "CCALL marshaller at 0x%x\n", - literals[instrs[pc+1]] ); + literals[instrs[pc]] ); pc += 1; break; case bci_STKCHECK: fprintf(stderr, "STKCHECK %d\n", instrs[pc] ); |