From: sewardj <unknown>
Date: Tue, 21 Aug 2001 10:12:02 +0000 (+0000)
Subject: [project @ 2001-08-21 10:12:02 by sewardj]
X-Git-Tag: Approximately_9120_patches~1156
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=968e56da6d0f217b873ede020ec629b8e40382cd;p=ghc-hetmet.git

[project @ 2001-08-21 10:12:02 by sewardj]
Teach it about MUT_VAR.
---

diff --git a/ghc/rts/Printer.c b/ghc/rts/Printer.c
index 949ca86..e64154d 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.46 2001/08/21 10:12:02 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);