X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FClosureFlags.c;h=05baad72d4f827f0e071fb3c2f1e2454c2eb3aaf;hb=c04a5fe3e2867d59ce9757069fdd20c06c326724;hp=08b4dd3e27742fdfabc62af2ca4c2b43669363c9;hpb=fbf2155fb20875982c1a8282b74dbbd92a4b88ea;p=ghc-hetmet.git diff --git a/rts/ClosureFlags.c b/rts/ClosureFlags.c index 08b4dd3..05baad7 100644 --- a/rts/ClosureFlags.c +++ b/rts/ClosureFlags.c @@ -69,9 +69,8 @@ StgWord16 closure_flags[] = { /* STOP_FRAME = */ ( _BTM ), /* CAF_BLACKHOLE = */ ( _BTM|_NS| _UPT ), /* BLACKHOLE = */ ( _NS| _UPT ), -/* SE_BLACKHOLE = */ ( _NS| _UPT ), -/* SE_CAF_BLACKHOLE = */ ( _NS| _UPT ), -/* MVAR = */ (_HNF| _NS| _MUT|_UPT ), +/* MVAR_CLEAN = */ (_HNF| _NS| _MUT|_UPT ), +/* MVAR_DIRTY = */ (_HNF| _NS| _MUT|_UPT ), /* ARR_WORDS = */ (_HNF| _NS| _UPT ), /* MUT_ARR_PTRS_CLEAN = */ (_HNF| _NS| _MUT|_UPT ), /* MUT_ARR_PTRS_DIRTY = */ (_HNF| _NS| _MUT|_UPT ), @@ -86,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 ), @@ -96,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 != 71 +#if N_CLOSURE_TYPES != 70 #error Closure types changed: update ClosureFlags.c! #endif