Add warning comment about Mach-O section name hack.
[ghc.git] / rts / Printer.c
index fb00401..db2e7be 100644 (file)
@@ -162,6 +162,12 @@ printClosure( StgClosure *obj )
        printStdObjPayload(obj);
        break;
 
+    case MUT_PRIM:
+        debugBelch("MUT_PRIM(");
+       printPtr((StgPtr)obj->header.info);
+       printStdObjPayload(obj);
+       break;
+
     case THUNK:
     case THUNK_1_0: case THUNK_0_1:
     case THUNK_1_1: case THUNK_0_2: case THUNK_2_0:
@@ -251,7 +257,6 @@ printClosure( StgClosure *obj )
     case RET_BCO:
     case RET_SMALL:
     case RET_BIG:
-    case RET_DYN:
     case RET_FUN:
     */
 
@@ -325,6 +330,13 @@ printClosure( StgClosure *obj )
           break;
         }
 
+    case TVAR:
+        {
+          StgTVar* tv = (StgTVar*)obj;
+          debugBelch("TVAR(value=%p, wq=%p, num_updates=%" FMT_Word ")\n", tv->current_value, tv->first_watch_queue_entry, tv->num_updates);
+          break;
+        }
+
     case MUT_VAR_CLEAN:
         {
          StgMutVar* mv = (StgMutVar*)obj;
@@ -478,38 +490,7 @@ printStackChunk( StgPtr sp, StgPtr spBottom )
             printObj((StgClosure*)sp);
            continue;
 
-       case RET_DYN:
-       { 
-           StgRetDyn* r;
-           StgPtr p;
-           StgWord dyn;
-           nat size;
-
-           r = (StgRetDyn *)sp;
-           dyn = r->liveness;
-           debugBelch("RET_DYN (%p)\n", r);
-
-           p = (P_)(r->payload);
-           printSmallBitmap(spBottom, sp,
-                            RET_DYN_LIVENESS(r->liveness), 
-                            RET_DYN_BITMAP_SIZE);
-           p += RET_DYN_BITMAP_SIZE + RET_DYN_NONPTR_REGS_SIZE;
-
-           for (size = RET_DYN_NONPTRS(dyn); size > 0; size--) {
-               debugBelch("   stk[%ld] (%p) = ", (long)(spBottom-p), p);
-               debugBelch("Word# %ld\n", (long)*p);
-               p++;
-           }
-       
-           for (size = RET_DYN_PTRS(dyn); size > 0; size--) {
-               debugBelch("   stk[%ld] (%p) = ", (long)(spBottom-p), p);
-               printPtr(p);
-               p++;
-           }
-           continue;
-       }
-
-       case RET_SMALL:
+        case RET_SMALL:
            debugBelch("RET_SMALL (%p)\n", info);
            bitmap = info->layout.bitmap;
            printSmallBitmap(spBottom, sp+1, 
@@ -1112,7 +1093,6 @@ char *closure_type_names[] = {
  [RET_BCO]               = "RET_BCO",
  [RET_SMALL]             = "RET_SMALL",
  [RET_BIG]               = "RET_BIG",
- [RET_DYN]               = "RET_DYN",
  [RET_FUN]               = "RET_FUN",
  [UPDATE_FRAME]          = "UPDATE_FRAME",
  [CATCH_FRAME]           = "CATCH_FRAME",
@@ -1122,6 +1102,7 @@ char *closure_type_names[] = {
  [BLACKHOLE]             = "BLACKHOLE",
  [MVAR_CLEAN]            = "MVAR_CLEAN",
  [MVAR_DIRTY]            = "MVAR_DIRTY",
+ [TVAR]                  = "TVAR",
  [ARR_WORDS]             = "ARR_WORDS",
  [MUT_ARR_PTRS_CLEAN]    = "MUT_ARR_PTRS_CLEAN",
  [MUT_ARR_PTRS_DIRTY]    = "MUT_ARR_PTRS_DIRTY",