From: simonmar <unknown>
Date: Tue, 26 Jul 2005 14:42:53 +0000 (+0000)
Subject: [project @ 2005-07-26 14:42:53 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~306
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=37ee58b05f0ceeca0d5a6d802146f5b39a86683b;p=ghc-hetmet.git

[project @ 2005-07-26 14:42:53 by simonmar]
add missing case for MUT_ARR_PTRS_FROZEN0 (might fix some cases of
"internal error: heapCensus" in the HEAD)
---

diff --git a/ghc/rts/ProfHeap.c b/ghc/rts/ProfHeap.c
index b640fea..e9735e7 100644
--- a/ghc/rts/ProfHeap.c
+++ b/ghc/rts/ProfHeap.c
@@ -938,6 +938,7 @@ heapCensusChain( Census *census, bdescr *bd )
 		
 	    case MUT_ARR_PTRS:
 	    case MUT_ARR_PTRS_FROZEN:
+	    case MUT_ARR_PTRS_FROZEN0:
 		prim = rtsTrue;
 		size = mut_arr_ptrs_sizeW((StgMutArrPtrs *)p);
 		break;