X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FPrinter.c;h=d977a5cdb7c7c5b9835f4b77738f1e320a6dd2bb;hb=679364ed0d1a2a80ee9a14995a5339d6b7e5be3e;hp=949ca8635c73a0ba8a849e24c69e18eabd214f18;hpb=bc5c802181b513216bc88f0d1ec9574157ee05fe;p=ghc-hetmet.git

diff --git a/ghc/rts/Printer.c b/ghc/rts/Printer.c
index 949ca86..d977a5c 100644
--- a/ghc/rts/Printer.c
+++ b/ghc/rts/Printer.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Printer.c,v 1.45 2001/08/14 13:40:09 sewardj Exp $
+ * $Id: Printer.c,v 1.47 2001/10/02 15:27:15 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);
@@ -455,7 +462,7 @@ void printStackChunk( StgPtr sp, StgPtr spBottom )
 	      printPtr((P_)*sp);
 	      fprintf(stderr,"\n");
 	    } else {
-	      fprintf(stderr,"Word# %ld\n", *sp++);
+	      fprintf(stderr,"Word# %ld\n", *sp);
 	    }	      
 	    sp++;
 	    bitmap = bitmap >> 1;