X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FLdvProfile.c;h=c98a47e010b562bd5ad42015090b7b7e44b9b4a3;hb=71c492fc420ee9d2b6075e6a1bb7b8c2cf5f6b6d;hp=9fb27652ba7e8a9cdaea5e42dddb3766a23ab875;hpb=e792bb8488aa3c33d7b186abdf53aa8b0ef68b11;p=ghc-hetmet.git

diff --git a/ghc/rts/LdvProfile.c b/ghc/rts/LdvProfile.c
index 9fb2765..c98a47e 100644
--- a/ghc/rts/LdvProfile.c
+++ b/ghc/rts/LdvProfile.c
@@ -128,6 +128,7 @@ processHeapClosureForDead( StgClosure *c )
 
     case MUT_ARR_PTRS:
     case MUT_ARR_PTRS_FROZEN:
+    case MUT_ARR_PTRS_FROZEN0:
 	size = mut_arr_ptrs_sizeW((StgMutArrPtrs *)c);
 	return size;