* Copyright (c) 1994-2002.
*
* $RCSfile: Disassembler.c,v $
- * $Revision: 1.26 $
- * $Date: 2002/12/11 15:36:41 $
+ * $Revision: 1.28 $
+ * $Date: 2004/08/13 13:09:46 $
* ---------------------------------------------------------------------------*/
#ifdef DEBUG
{
int i;
- StgWord16* instrs = (StgWord16*)(BCO_INSTRS(bco));
+ StgWord16* instrs = (StgWord16*)(bco->instrs->payload);
StgArrWords* literal_arr = bco->literals;
StgWord* literals = (StgWord*)(&literal_arr->payload[0]);
case bci_PUSH_APPLY_PPPPPP:
fprintf(stderr, "PUSH_APPLY_PPPPPP\n");
break;
- case bci_PUSH_APPLY_PPPPPPP:
- fprintf(stderr, "PUSH_APPLY_PPPPPPP\n");
- break;
case bci_SLIDE:
fprintf(stderr, "SLIDE %d down by %d\n", instrs[pc], instrs[pc+1] );
pc += 2; break;
void disassemble( StgBCO *bco )
{
nat i, j;
- StgWord16* instrs = (StgWord16*)(BCO_INSTRS(bco));
+ StgWord16* instrs = (StgWord16*)(bco->instrs->payload);
StgMutArrPtrs* ptrs = bco->ptrs;
nat nbcs = (int)instrs[0];
nat pc = 1;