X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FLdvProfile.c;fp=ghc%2Frts%2FLdvProfile.c;h=cd3c2d11c8c83aefd5a851e06b513cc6605663f4;hb=da69fa9c5047c5b0d05bdb05eaddefa1eb5d5a36;hp=c98a47e010b562bd5ad42015090b7b7e44b9b4a3;hpb=ba41623270c1d541e74bd5182e1b4fcbe99809cc;p=ghc-hetmet.git

diff --git a/ghc/rts/LdvProfile.c b/ghc/rts/LdvProfile.c
index c98a47e..cd3c2d1 100644
--- a/ghc/rts/LdvProfile.c
+++ b/ghc/rts/LdvProfile.c
@@ -126,7 +126,8 @@ processHeapClosureForDead( StgClosure *c )
 	size = sizeofW(StgMVar);
 	return size;
 
-    case MUT_ARR_PTRS:
+    case MUT_ARR_PTRS_CLEAN:
+    case MUT_ARR_PTRS_DIRTY:
     case MUT_ARR_PTRS_FROZEN:
     case MUT_ARR_PTRS_FROZEN0:
 	size = mut_arr_ptrs_sizeW((StgMutArrPtrs *)c);