X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FPrinter.c;h=2fbe2765a648ce84ca87626ebfc39929b81827a3;hb=de75026f5a48d3d052135a973ab4dff76c5b20f5;hp=d46283cbb35a38e48eecbccdb6d22c0b050bed06;hpb=e724120ffcc8fe28c59ecef2fbbc94d7c67b92d0;p=ghc-hetmet.git

diff --git a/rts/Printer.c b/rts/Printer.c
index d46283c..2fbe276 100644
--- a/rts/Printer.c
+++ b/rts/Printer.c
@@ -121,8 +121,9 @@ printThunkObject( StgThunk *obj, char* tag )
 void
 printClosure( StgClosure *obj )
 {
+    obj = UNTAG_CLOSURE(obj);
+
     StgInfoTable *info;
-    
     info = get_itbl(obj);
 
     switch ( info->type ) {
@@ -306,14 +307,6 @@ printClosure( StgClosure *obj )
             debugBelch("BH\n"); 
             break;
 
-    case SE_BLACKHOLE:
-            debugBelch("SE_BH\n"); 
-            break;
-
-    case SE_CAF_BLACKHOLE:
-            debugBelch("SE_CAF_BH\n"); 
-            break;
-
     case ARR_WORDS:
         {
             StgWord i;
@@ -340,7 +333,8 @@ printClosure( StgClosure *obj )
 	debugBelch("MUT_ARR_PTRS_FROZEN(size=%lu)\n", (lnat)((StgMutArrPtrs *)obj)->ptrs);
 	break;
 
-    case MVAR:
+    case MVAR_CLEAN:
+    case MVAR_DIRTY:
         {
 	  StgMVar* mv = (StgMVar*)obj;
 	  debugBelch("MVAR(head=%p, tail=%p, value=%p)\n", mv->head, mv->tail, mv->value);