From: sof <unknown>
Date: Mon, 13 Sep 2004 17:10:48 +0000 (+0000)
Subject: [project @ 2004-09-13 17:10:48 by sof]
X-Git-Tag: Initial_conversion_from_CVS_complete~1605
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7627b3e8be644bc3462179635f44d88d140a0f33;hp=c064c9e3c3dec9e4f4f7f409711264b1b4893465;p=ghc-hetmet.git

[project @ 2004-09-13 17:10:48 by sof]
printClosure(): handle MVARs
---

diff --git a/ghc/rts/Printer.c b/ghc/rts/Printer.c
index 0f65ac9..c72b33a 100644
--- a/ghc/rts/Printer.c
+++ b/ghc/rts/Printer.c
@@ -351,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;