Detab TcUnify

[ghc-hetmet.git] / rts / ClosureFlags.c

diff --git a/rts/ClosureFlags.c b/rts/ClosureFlags.c
index 08b4dd3..12e6632 100644 (file)
--- a/rts/ClosureFlags.c
+++ b/rts/ClosureFlags.c
@@ -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