[project @ 2004-10-07 15:54:03 by wolfgang]

[ghc-hetmet.git] / ghc / rts / Printer.c

diff --git a/ghc/rts/Printer.c b/ghc/rts/Printer.c
index 7074a43..9e8d090 100644 (file)
--- a/ghc/rts/Printer.c
+++ b/ghc/rts/Printer.c
@@ -1,5 +1,4 @@
 /* -----------------------------------------------------------------------------
- * $Id: Printer.c,v 1.64 2004/09/03 15:28:35 simonmar Exp $
  *
  * (c) The GHC Team, 1994-2000.
  *
@@ -352,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;
@@ -616,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,