/* -----------------------------------------------------------------------------
- * $Id: Printer.c,v 1.64 2004/09/03 15:28:35 simonmar Exp $
*
* (c) The GHC Team, 1994-2000.
*
}
#endif
+ case MVAR:
+ {
+ StgMVar* mv = (StgMVar*)obj;
+ debugBelch("MVAR(head=%p, link=%p, tail=%p, value=%p)\n", mv->head, mv->mut_link, mv->tail, mv->value);
+ break;
+ }
+
case MUT_VAR:
{
StgMutVar* mv = (StgMutVar*)obj;
break;
case ARG_GEN_BIG:
printLargeBitmap(spBottom, sp+2,
- (StgLargeBitmap *)fun_info->f.bitmap,
- BITMAP_SIZE(fun_info->f.bitmap));
+ GET_FUN_LARGE_BITMAP(fun_info),
+ GET_FUN_LARGE_BITMAP(fun_info)->size);
break;
default:
printSmallBitmap(spBottom, sp+1,