X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FClosureFlags.c;h=358cb40ed306403ab3d3516275f9d0c84d835eff;hb=6eb7886a38836b8a6d7445d2003271b4e2125034;hp=bbe0e8ffed52f80aedb9baa8a61742c38b07bda1;hpb=9b266fba8f18f9f8a469bbe0b51b80a91217f1ab;p=ghc-hetmet.git

diff --git a/rts/ClosureFlags.c b/rts/ClosureFlags.c
index bbe0e8f..358cb40 100644
--- a/rts/ClosureFlags.c
+++ b/rts/ClosureFlags.c
@@ -74,25 +74,16 @@ StgWord16 closure_flags[] = {
  [MUT_VAR_CLEAN]	=  (_HNF|     _NS|         _MUT|_UPT           ),
  [MUT_VAR_DIRTY]	=  (_HNF|     _NS|         _MUT|_UPT           ),
  [WEAK]		   	=  (_HNF|     _NS|              _UPT           ),
- [STABLE_NAME]	   	=  (_HNF|     _NS|              _UPT           ),
+ [PRIM]  	   	=  (_HNF|     _NS|              _UPT           ),
+ [MUT_PRIM]  	   	=  (_HNF|     _NS|         _MUT|_UPT           ),
  [TSO]                 	=  (_HNF|     _NS|         _MUT|_UPT           ),
- [BLOCKED_FETCH]	=  (_HNF|     _NS|         _MUT|_UPT           ),
- [FETCH_ME]		=  (_HNF|     _NS|         _MUT|_UPT           ),
- [FETCH_ME_BQ]          =  ( 	      _NS|         _MUT|_UPT           ),
- [RBH]                  =  ( 	      _NS|         _MUT|_UPT           ),
- [REMOTE_REF]		=  (_HNF|     _NS|              _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           ),
  [ATOMICALLY_FRAME]     =  (     _BTM                                  ),
  [CATCH_RETRY_FRAME]    =  (     _BTM                                  ),
  [CATCH_STM_FRAME]      =  (     _BTM                                  ),
  [WHITEHOLE]		=  ( 0                                         )
 };
 
-#if N_CLOSURE_TYPES != 70
+#if N_CLOSURE_TYPES != 61
 #error Closure types changed: update ClosureFlags.c!
 #endif