X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FClosureFlags.c;h=12e6632f240c2f41770d6c2d6278cceb9a3797ff;hb=6c3eae5d5e88117cf80b4b35c9bae4ba3ebbe94c;hp=5a34c5eabc4f80638246a6832309690ea567d54a;hpb=9ff76535edb25ab7434284adddb5c64708ecb547;p=ghc-hetmet.git

diff --git a/rts/ClosureFlags.c b/rts/ClosureFlags.c
index 5a34c5e..12e6632 100644
--- a/rts/ClosureFlags.c
+++ b/rts/ClosureFlags.c
@@ -23,8 +23,8 @@ StgWord16 closure_flags[] = {
  *  to thunks.)
  */
 
-/*                              0    1    2    3    4   5   6   7 */
-/*			      HNF  BTM   NS  STA  THU MUT UPT SRT */
+/*                              0    1    2    3    4   5   6   7     8 */
+/*			      HNF  BTM   NS  STA  THU MUT UPT SRT   IND */
 
 /* INVALID_OBJECT       = */ ( 0                                      	 ),
 /* CONSTR  		= */ (_HNF|     _NS                           	 ),
@@ -71,7 +71,8 @@ StgWord16 closure_flags[] = {
 /* BLACKHOLE		= */ ( 	        _NS|              _UPT           ),
 /* SE_BLACKHOLE		= */ ( 	        _NS|              _UPT           ),
 /* SE_CAF_BLACKHOLE	= */ ( 	        _NS|              _UPT           ),
-/* MVAR		   	= */ (_HNF|     _NS|         _MUT|_UPT           ),
+/* MVAR_CLEAN	   	= */ (_HNF|     _NS|         _MUT|_UPT           ),
+/* MVAR_DIRTY	   	= */ (_HNF|     _NS|         _MUT|_UPT           ),
 /* ARR_WORDS		= */ (_HNF|     _NS|              _UPT           ),
 /* MUT_ARR_PTRS_CLEAN  	= */ (_HNF|     _NS|         _MUT|_UPT           ),
 /* MUT_ARR_PTRS_DIRTY  	= */ (_HNF|     _NS|         _MUT|_UPT           ),
@@ -99,6 +100,6 @@ StgWord16 closure_flags[] = {
 /* CATCH_STM_FRAME      = */ (     _BTM                                  )
 };
 
-#if N_CLOSURE_TYPES != 71
+#if N_CLOSURE_TYPES != 72
 #error Closure types changed: update ClosureFlags.c!
 #endif