STM invariants

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

diff --git a/rts/ClosureFlags.c b/rts/ClosureFlags.c
index 5545693..c282cf3 100644 (file)
--- 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       ),
@@ -92,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           ),
@@ -104,4 +104,3 @@ StgWord16 closure_flags[] = {
 #if N_CLOSURE_TYPES != 73
 #error Closure types changed: update ClosureFlags.c!
 #endif
-