X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FClosureFlags.c;h=d5181cae22cd219aa55d1ff5684c30cd1afba716;hb=d108044bef62f6a0d579c92ced5e8188f72edc2d;hp=358cb40ed306403ab3d3516275f9d0c84d835eff;hpb=7408b39235bccdcde48df2a73337ff976fbc09b7;p=ghc-hetmet.git

diff --git a/rts/ClosureFlags.c b/rts/ClosureFlags.c
index 358cb40..d5181ca 100644
--- a/rts/ClosureFlags.c
+++ b/rts/ClosureFlags.c
@@ -50,9 +50,7 @@ StgWord16 closure_flags[] = {
  [PAP]		   	=  (_HNF|     _NS				 ),
  [AP_STACK]	   	=  (          	       _THU			 ),
  [IND]		   	=  (          _NS|			  _IND ),
- [IND_OLDGEN]	   	=  (          _NS|			  _IND ),
  [IND_PERM]		=  (          _NS|			  _IND ),
- [IND_OLDGEN_PERM]	=  (          _NS|			  _IND ),
  [IND_STATIC]	   	=  (          _NS|_STA|                   _IND ),
  [RET_BCO]		=  (     _BTM                                  ),
  [RET_SMALL]		=  (     _BTM|                       _SRT      ),
@@ -62,8 +60,8 @@ StgWord16 closure_flags[] = {
  [UPDATE_FRAME]        	=  (     _BTM                                  ),
  [CATCH_FRAME]	   	=  (     _BTM                                  ),
  [STOP_FRAME]	   	=  (     _BTM                                  ),
- [CAF_BLACKHOLE]   	=  ( 	 _BTM|_NS|              _UPT           ),
  [BLACKHOLE]		=  ( 	      _NS|              _UPT           ),
+ [BLOCKING_QUEUE]	=  ( 	      _NS|         _MUT|_UPT           ),
  [MVAR_CLEAN]	   	=  (_HNF|     _NS|         _MUT|_UPT           ),
  [MVAR_DIRTY]	   	=  (_HNF|     _NS|         _MUT|_UPT           ),
  [ARR_WORDS]		=  (_HNF|     _NS|              _UPT           ),
@@ -84,6 +82,6 @@ StgWord16 closure_flags[] = {
  [WHITEHOLE]		=  ( 0                                         )
 };
 
-#if N_CLOSURE_TYPES != 61
+#if N_CLOSURE_TYPES != 59
 #error Closure types changed: update ClosureFlags.c!
 #endif