Commit 968e56da authored by sewardj's avatar sewardj
Browse files

[project @ 2001-08-21 10:12:02 by sewardj]

Teach it about MUT_VAR.
parent eaa2e86d
/* -----------------------------------------------------------------------------
* $Id: Printer.c,v 1.45 2001/08/14 13:40:09 sewardj Exp $
* $Id: Printer.c,v 1.46 2001/08/21 10:12:02 sewardj Exp $
*
* (c) The GHC Team, 1994-2000.
*
......@@ -96,6 +96,13 @@ void printClosure( StgClosure *obj )
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);
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment