New syntax for GADT-style record declarations, and associated refactoring
[ghc-hetmet.git] / rts / ClosureFlags.c
index 12e6632..05baad7 100644 (file)
@@ -69,8 +69,6 @@ StgWord16 closure_flags[] = {
 /* STOP_FRAME          = */ (     _BTM                                  ),
 /* CAF_BLACKHOLE       = */ (     _BTM|_NS|              _UPT           ),
 /* BLACKHOLE           = */ (          _NS|              _UPT           ),
-/* SE_BLACKHOLE                = */ (          _NS|              _UPT           ),
-/* SE_CAF_BLACKHOLE    = */ (          _NS|              _UPT           ),
 /* MVAR_CLEAN          = */ (_HNF|     _NS|         _MUT|_UPT           ),
 /* MVAR_DIRTY          = */ (_HNF|     _NS|         _MUT|_UPT           ),
 /* ARR_WORDS           = */ (_HNF|     _NS|              _UPT           ),
@@ -87,7 +85,6 @@ StgWord16 closure_flags[] = {
 /* FETCH_ME            = */ (_HNF|     _NS|         _MUT|_UPT           ),
 /* FETCH_ME_BQ          = */ (                 _NS|         _MUT|_UPT           ),
 /* RBH                  = */ (                 _NS|         _MUT|_UPT           ),
-/* EVACUATED           = */ ( 0                                         ),
 /* REMOTE_REF          = */ (_HNF|     _NS|              _UPT           ),
 /* TVAR_WATCH_QUEUE     = */ (          _NS|         _MUT|_UPT           ),
 /* INVARIANT_CHECK_QUEUE= */ (          _NS|         _MUT|_UPT           ),
@@ -97,9 +94,10 @@ StgWord16 closure_flags[] = {
 /* TREC_HEADER          = */ (          _NS|         _MUT|_UPT           ),
 /* ATOMICALLY_FRAME     = */ (     _BTM                                  ),
 /* CATCH_RETRY_FRAME    = */ (     _BTM                                  ),
-/* CATCH_STM_FRAME      = */ (     _BTM                                  )
+/* CATCH_STM_FRAME      = */ (     _BTM                                  ),
+/* WHITEHOLE           = */ ( 0                                         )
 };
 
-#if N_CLOSURE_TYPES != 72
+#if N_CLOSURE_TYPES != 70
 #error Closure types changed: update ClosureFlags.c!
 #endif