X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FClosureFlags.c;h=df9ef7b6f24446dca188d60a700140083d5b81a6;hb=abd374c9affb2fafd833def8e7d34e285049fe69;hp=d840bdd767e8121d12324e90c842262c5fc6aa51;hpb=ee4bd913487c70df23f68d937a95e16487e2f08b;p=ghc-hetmet.git

diff --git a/ghc/rts/ClosureFlags.c b/ghc/rts/ClosureFlags.c
index d840bdd..df9ef7b 100644
--- a/ghc/rts/ClosureFlags.c
+++ b/ghc/rts/ClosureFlags.c
@@ -78,11 +78,10 @@ StgWord16 closure_flags[] = {
 /* MVAR		   	= */ (_HNF|     _NS|         _MUT|_UPT           ),
 /* ARR_WORDS		= */ (_HNF|     _NS|              _UPT           ),
 /* MUT_ARR_PTRS	   	= */ (_HNF|     _NS|         _MUT|_UPT           ),
-/* MUT_ARR_PTRS_FROZEN0	= */ (_HNF|     _NS|              _UPT           ),
+/* MUT_ARR_PTRS_FROZEN0	= */ (_HNF|     _NS|         _MUT|_UPT           ),
 /* MUT_ARR_PTRS_FROZEN 	= */ (_HNF|     _NS|              _UPT           ),
 /* MUT_VAR		= */ (_HNF|     _NS|         _MUT|_UPT           ),
 /* WEAK		   	= */ (_HNF|     _NS|              _UPT           ),
-/* FOREIGN		= */ (_HNF|     _NS|              _UPT           ),
 /* STABLE_NAME	   	= */ (_HNF|     _NS|              _UPT           ),
 /* TSO                 	= */ (_HNF|     _NS|         _MUT|_UPT           ),
 /* BLOCKED_FETCH	= */ (_HNF|     _NS|         _MUT|_UPT           ),
@@ -100,7 +99,7 @@ StgWord16 closure_flags[] = {
 /* CATCH_STM_FRAME      = */ (     _BTM                                  )
 };
 
-#if N_CLOSURE_TYPES != 72
+#if N_CLOSURE_TYPES != 71
 #error Closure types changed: update ClosureFlags.c!
 #endif