Allow "INLINEABLE" as a synonym

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

diff --git a/rts/ClosureFlags.c b/rts/ClosureFlags.c
index 358cb40..d5181ca 100644 (file)
--- 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