diff options
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] ); |