From ee4bd913487c70df23f68d937a95e16487e2f08b Mon Sep 17 00:00:00 2001 From: simonmar Date: Wed, 20 Apr 2005 13:56:43 +0000 Subject: [PATCH] [project @ 2005-04-20 13:56:43 by simonmar] Update to match ClosureTypes.h --- ghc/rts/ClosureFlags.c | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/ghc/rts/ClosureFlags.c b/ghc/rts/ClosureFlags.c index 28876ab..d840bdd 100644 --- a/ghc/rts/ClosureFlags.c +++ b/ghc/rts/ClosureFlags.c @@ -73,15 +73,14 @@ StgWord16 closure_flags[] = { /* STOP_FRAME = */ ( _BTM ), /* CAF_BLACKHOLE = */ ( _BTM|_NS| _UPT ), /* BLACKHOLE = */ ( _NS| _UPT ), -/* BLACKHOLE_BQ = */ ( _NS| _MUT|_UPT ), /* SE_BLACKHOLE = */ ( _NS| _UPT ), /* SE_CAF_BLACKHOLE = */ ( _NS| _UPT ), /* MVAR = */ (_HNF| _NS| _MUT|_UPT ), /* ARR_WORDS = */ (_HNF| _NS| _UPT ), /* MUT_ARR_PTRS = */ (_HNF| _NS| _MUT|_UPT ), +/* MUT_ARR_PTRS_FROZEN0 = */ (_HNF| _NS| _UPT ), /* MUT_ARR_PTRS_FROZEN = */ (_HNF| _NS| _UPT ), /* MUT_VAR = */ (_HNF| _NS| _MUT|_UPT ), -/* MUT_CONS = */ (_HNF| _NS| _UPT ), /* WEAK = */ (_HNF| _NS| _UPT ), /* FOREIGN = */ (_HNF| _NS| _UPT ), /* STABLE_NAME = */ (_HNF| _NS| _UPT ), @@ -98,6 +97,10 @@ StgWord16 closure_flags[] = { /* TREC_HEADER = */ ( _NS| _MUT|_UPT ), /* ATOMICALLY_FRAME = */ ( _BTM ), /* CATCH_RETRY_FRAME = */ ( _BTM ), -/* CATCH_STM_FRAME = */ ( _BTM ), -/* STACK = */ (_HNF| _NS| _MUT ) +/* CATCH_STM_FRAME = */ ( _BTM ) }; + +#if N_CLOSURE_TYPES != 72 +#error Closure types changed: update ClosureFlags.c! +#endif + -- 1.7.10.4