X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FClosureFlags.c;h=05baad72d4f827f0e071fb3c2f1e2454c2eb3aaf;hb=432b9c9322181a3644083e3c19b7e240d90659e7;hp=12e6632f240c2f41770d6c2d6278cceb9a3797ff;hpb=1ed01a871030f05905a9595e4837dfffc087ef64;p=ghc-hetmet.git diff --git a/rts/ClosureFlags.c b/rts/ClosureFlags.c index 12e6632..05baad7 100644 --- a/rts/ClosureFlags.c +++ b/rts/ClosureFlags.c @@ -69,8 +69,6 @@ StgWord16 closure_flags[] = { /* STOP_FRAME = */ ( _BTM ), /* CAF_BLACKHOLE = */ ( _BTM|_NS| _UPT ), /* BLACKHOLE = */ ( _NS| _UPT ), -/* SE_BLACKHOLE = */ ( _NS| _UPT ), -/* SE_CAF_BLACKHOLE = */ ( _NS| _UPT ), /* MVAR_CLEAN = */ (_HNF| _NS| _MUT|_UPT ), /* MVAR_DIRTY = */ (_HNF| _NS| _MUT|_UPT ), /* ARR_WORDS = */ (_HNF| _NS| _UPT ), @@ -87,7 +85,6 @@ StgWord16 closure_flags[] = { /* FETCH_ME = */ (_HNF| _NS| _MUT|_UPT ), /* FETCH_ME_BQ = */ ( _NS| _MUT|_UPT ), /* RBH = */ ( _NS| _MUT|_UPT ), -/* EVACUATED = */ ( 0 ), /* REMOTE_REF = */ (_HNF| _NS| _UPT ), /* TVAR_WATCH_QUEUE = */ ( _NS| _MUT|_UPT ), /* INVARIANT_CHECK_QUEUE= */ ( _NS| _MUT|_UPT ), @@ -97,9 +94,10 @@ StgWord16 closure_flags[] = { /* TREC_HEADER = */ ( _NS| _MUT|_UPT ), /* ATOMICALLY_FRAME = */ ( _BTM ), /* CATCH_RETRY_FRAME = */ ( _BTM ), -/* CATCH_STM_FRAME = */ ( _BTM ) +/* CATCH_STM_FRAME = */ ( _BTM ), +/* WHITEHOLE = */ ( 0 ) }; -#if N_CLOSURE_TYPES != 72 +#if N_CLOSURE_TYPES != 70 #error Closure types changed: update ClosureFlags.c! #endif