X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FClosureFlags.c;h=c282cf3a8846c27025600edb684d82ee5285ad7b;hb=8b08c15b8ace5a76e341939081fbb6ad2736ddd1;hp=260bf390d02796637376766c5e7721d39414792f;hpb=a0be7e7ccd602efd9b7d35b3e0747a2c4f155ce9;p=ghc-hetmet.git

diff --git a/rts/ClosureFlags.c b/rts/ClosureFlags.c
index 260bf39..c282cf3 100644
--- a/rts/ClosureFlags.c
+++ b/rts/ClosureFlags.c
@@ -90,7 +90,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           ),
@@ -99,6 +101,6 @@ StgWord16 closure_flags[] = {
 /* CATCH_STM_FRAME      = */ (     _BTM                                  )
 };
 
-#if N_CLOSURE_TYPES != 71
+#if N_CLOSURE_TYPES != 73
 #error Closure types changed: update ClosureFlags.c!
 #endif