X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FPrinter.c;h=9e8d09043c69e3a85c06fad362168ba054c33ac0;hb=0d52a0a134871d317b5f8b53a952c882ce5ae5b6;hp=0f65ac9687b09ace5f62e02b00fa30720a13c9ee;hpb=94e06463420582cc2d336b39a297e82af39e4cc4;p=ghc-hetmet.git

diff --git a/ghc/rts/Printer.c b/ghc/rts/Printer.c
index 0f65ac9..9e8d090 100644
--- a/ghc/rts/Printer.c
+++ b/ghc/rts/Printer.c
@@ -351,6 +351,13 @@ printClosure( StgClosure *obj )
           }
 #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;
@@ -615,8 +622,8 @@ printStackChunk( StgPtr sp, StgPtr spBottom )
 		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,