X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FCompact.c;h=b8a40d47e9a202ac6aced8d7988289d9e61d1a8c;hb=50c4d03919a9d5c37c14004e964083251f655e93;hp=53eb2fbb86e90473ff9432f3d938434f01eb40ba;hpb=6494b3cb78498363a2578a62d6cbbf3f55793e2a;p=ghc-hetmet.git

diff --git a/rts/sm/Compact.c b/rts/sm/Compact.c
index 53eb2fb..b8a40d4 100644
--- a/rts/sm/Compact.c
+++ b/rts/sm/Compact.c
@@ -644,7 +644,8 @@ thread_obj (StgInfoTable *info, StgPtr p)
 	return p + sizeofW(StgWeak);
     }
     
-    case MVAR:
+    case MVAR_CLEAN:
+    case MVAR_DIRTY:
     { 
 	StgMVar *mvar = (StgMVar *)p;
 	thread_(&mvar->head);