From a1f9036c5901c78e8b97709cf1f6c1091171ea8d Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 26 Jul 2005 14:44:36 +0000
Subject: [PATCH] [project @ 2005-07-26 14:44:22 by simonmar] add missing
 MUT_ARR_PTRS_FROZEN0 cases

---
 ghc/rts/LdvProfile.c      |    1 +
 ghc/rts/RetainerProfile.c |    4 ++++
 2 files changed, 5 insertions(+)

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;
 
diff --git a/ghc/rts/RetainerProfile.c b/ghc/rts/RetainerProfile.c
index f458d8c..62b6fa3 100644
--- a/ghc/rts/RetainerProfile.c
+++ b/ghc/rts/RetainerProfile.c
@@ -523,6 +523,7 @@ push( StgClosure *c, retainer c_child_r, StgClosure **first_child )
 	// StgMutArrPtr.ptrs, no SRT
     case MUT_ARR_PTRS:
     case MUT_ARR_PTRS_FROZEN:
+    case MUT_ARR_PTRS_FROZEN0:
 	init_ptrs(&se.info, ((StgMutArrPtrs *)c)->ptrs,
 		  (StgPtr)(((StgMutArrPtrs *)c)->payload));
 	*first_child = find_ptrs(&se.info);
@@ -821,6 +822,7 @@ pop( StgClosure **c, StgClosure **cp, retainer *r )
 	    // StgMutArrPtr.ptrs, no SRT
 	case MUT_ARR_PTRS:
 	case MUT_ARR_PTRS_FROZEN:
+	case MUT_ARR_PTRS_FROZEN0:
 	    *c = find_ptrs(&se->info);
 	    if (*c == NULL) {
 		popOff();
@@ -990,6 +992,7 @@ isRetainer( StgClosure *c )
     case MUT_VAR:
     case MUT_ARR_PTRS:
     case MUT_ARR_PTRS_FROZEN:
+    case MUT_ARR_PTRS_FROZEN0:
 
 	// thunks are retainers.
     case THUNK:
@@ -2071,6 +2074,7 @@ sanityCheckHeapClosure( StgClosure *c )
 
     case MUT_ARR_PTRS:
     case MUT_ARR_PTRS_FROZEN:
+    case MUT_ARR_PTRS_FROZEN0:
 	return mut_arr_ptrs_sizeW((StgMutArrPtrs *)c);
 
     case AP:
-- 
1.7.10.4