/* -----------------------------------------------------------------------------
- * $Id: Printer.c,v 1.45 2001/08/14 13:40:09 sewardj Exp $
+ * $Id: Printer.c,v 1.47 2001/10/02 15:27:15 sewardj Exp $
*
* (c) The GHC Team, 1994-2000.
*
disassemble( (StgBCO*)obj );
break;
+ case MUT_VAR:
+ {
+ StgMutVar* mv = (StgMutVar*)obj;
+ fprintf(stderr,"MUT_VAR(var=%p, link=%p)\n", mv->var, mv->mut_link);
+ break;
+ }
+
case AP_UPD:
{
StgAP_UPD* ap = stgCast(StgAP_UPD*,obj);
printPtr((P_)*sp);
fprintf(stderr,"\n");
} else {
- fprintf(stderr,"Word# %ld\n", *sp++);
+ fprintf(stderr,"Word# %ld\n", *sp);
}
sp++;
bitmap = bitmap >> 1;