X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FClosureFlags.c;h=5a34c5eabc4f80638246a6832309690ea567d54a;hb=ca5ded310c0a596be199a3da5f14be2fb2020687;hp=5545693362e89b96557c8d03b73889659ed7a120;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git

diff --git a/rts/ClosureFlags.c b/rts/ClosureFlags.c
index 5545693..5a34c5e 100644
--- a/rts/ClosureFlags.c
+++ b/rts/ClosureFlags.c
@@ -33,8 +33,6 @@ StgWord16 closure_flags[] = {
 /* CONSTR_2_0	   	= */ (_HNF|     _NS                           	 ),
 /* CONSTR_1_1	   	= */ (_HNF|     _NS                           	 ),
 /* CONSTR_0_2	   	= */ (_HNF|     _NS                           	 ),
-/* CONSTR_INTLIKE 	= */ (_HNF|     _NS|_STA                      	 ),
-/* CONSTR_CHARLIKE  	= */ (_HNF|     _NS|_STA                      	 ),
 /* CONSTR_STATIC	= */ (_HNF|     _NS|_STA                      	 ),
 /* CONSTR_NOCAF_STATIC  = */ (_HNF|     _NS|_STA                      	 ),
 /* FUN		   	= */ (_HNF|     _NS|                  _SRT    	 ),
@@ -63,9 +61,7 @@ StgWord16 closure_flags[] = {
 /* IND_STATIC	   	= */ (          _NS|_STA|                   _IND ),
 /* RET_BCO		= */ (     _BTM                                  ),
 /* RET_SMALL		= */ (     _BTM|                       _SRT      ),
-/* RET_VEC_SMALL	= */ (     _BTM|                       _SRT      ),
 /* RET_BIG		= */ (                                 _SRT      ),
-/* RET_VEC_BIG	   	= */ (                                 _SRT      ),
 /* RET_DYN		= */ (                                 _SRT      ),
 /* RET_FUN		= */ ( 0                                         ),
 /* UPDATE_FRAME        	= */ (     _BTM                                  ),
@@ -92,7 +88,9 @@ StgWord16 closure_flags[] = {
 /* RBH                  = */ ( 	        _NS|         _MUT|_UPT           ),
 /* EVACUATED		= */ ( 0                                         ),
 /* REMOTE_REF		= */ (_HNF|     _NS|              _UPT           ),
-/* TVAR_WAIT_QUEUE      = */ (          _NS|         _MUT|_UPT           ),
+/* TVAR_WATCH_QUEUE     = */ (          _NS|         _MUT|_UPT           ),
+/* INVARIANT_CHECK_QUEUE= */ (          _NS|         _MUT|_UPT           ),
+/* ATOMIC_INVARIANT     = */ (          _NS|         _MUT|_UPT           ),
 /* TVAR                 = */ (_HNF|     _NS|         _MUT|_UPT           ), 
 /* TREC_CHUNK           = */ (          _NS|         _MUT|_UPT           ),
 /* TREC_HEADER          = */ (          _NS|         _MUT|_UPT           ),
@@ -101,7 +99,6 @@ StgWord16 closure_flags[] = {
 /* CATCH_STM_FRAME      = */ (     _BTM                                  )
 };
 
-#if N_CLOSURE_TYPES != 73
+#if N_CLOSURE_TYPES != 71
 #error Closure types changed: update ClosureFlags.c!
 #endif
-