diff options
Diffstat (limited to 'ghc/rts/ClosureFlags.c')
| -rw-r--r-- | ghc/rts/ClosureFlags.c | 107 |
1 files changed, 0 insertions, 107 deletions
diff --git a/ghc/rts/ClosureFlags.c b/ghc/rts/ClosureFlags.c deleted file mode 100644 index 5545693362..0000000000 --- a/ghc/rts/ClosureFlags.c +++ /dev/null @@ -1,107 +0,0 @@ -/* ----------------------------------------------------------------------------- - * - * (c) The GHC Team 1998-1999 - * - * Closure type flags - * - * ---------------------------------------------------------------------------*/ - -#include "PosixSource.h" -#include "Rts.h" - -StgWord16 closure_flags[] = { - -/* - * These *must* be in the same order as the closure types in - * ClosureTypes.h. - */ - -/* ToDo: some of these flags seem to be duplicated. - * - NS is the same as HNF, and the negation of THU - * (however, we set NS for indirections, which is probably the - * right thing to do, since we never get indirections pointing - * to thunks.) - */ - -/* 0 1 2 3 4 5 6 7 */ -/* HNF BTM NS STA THU MUT UPT SRT */ - -/* INVALID_OBJECT = */ ( 0 ), -/* CONSTR = */ (_HNF| _NS ), -/* CONSTR_1_0 = */ (_HNF| _NS ), -/* CONSTR_0_1 = */ (_HNF| _NS ), -/* CONSTR_2_0 = */ (_HNF| _NS ), -/* CONSTR_1_1 = */ (_HNF| _NS ), -/* CONSTR_0_2 = */ (_HNF| _NS ), -/* CONSTR_INTLIKE = */ (_HNF| _NS|_STA ), -/* CONSTR_CHARLIKE = */ (_HNF| _NS|_STA ), -/* CONSTR_STATIC = */ (_HNF| _NS|_STA ), -/* CONSTR_NOCAF_STATIC = */ (_HNF| _NS|_STA ), -/* FUN = */ (_HNF| _NS| _SRT ), -/* FUN_1_0 = */ (_HNF| _NS| _SRT ), -/* FUN_0_1 = */ (_HNF| _NS| _SRT ), -/* FUN_2_0 = */ (_HNF| _NS| _SRT ), -/* FUN_1_1 = */ (_HNF| _NS| _SRT ), -/* FUN_0_2 = */ (_HNF| _NS| _SRT ), -/* FUN_STATIC = */ (_HNF| _NS|_STA| _SRT ), -/* THUNK = */ ( _BTM| _THU| _SRT ), -/* THUNK_1_0 = */ ( _BTM| _THU| _SRT ), -/* THUNK_0_1 = */ ( _BTM| _THU| _SRT ), -/* THUNK_2_0 = */ ( _BTM| _THU| _SRT ), -/* THUNK_1_1 = */ ( _BTM| _THU| _SRT ), -/* THUNK_0_2 = */ ( _BTM| _THU| _SRT ), -/* THUNK_STATIC = */ ( _BTM| _STA|_THU| _SRT ), -/* THUNK_SELECTOR = */ ( _BTM| _THU| _SRT ), -/* BCO = */ (_HNF| _NS ), -/* AP = */ ( _THU ), -/* 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 ), -/* RET_VEC_SMALL = */ ( _BTM| _SRT ), -/* RET_BIG = */ ( _SRT ), -/* RET_VEC_BIG = */ ( _SRT ), -/* RET_DYN = */ ( _SRT ), -/* RET_FUN = */ ( 0 ), -/* UPDATE_FRAME = */ ( _BTM ), -/* CATCH_FRAME = */ ( _BTM ), -/* 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 ), -/* ARR_WORDS = */ (_HNF| _NS| _UPT ), -/* MUT_ARR_PTRS_CLEAN = */ (_HNF| _NS| _MUT|_UPT ), -/* MUT_ARR_PTRS_DIRTY = */ (_HNF| _NS| _MUT|_UPT ), -/* MUT_ARR_PTRS_FROZEN0 = */ (_HNF| _NS| _MUT|_UPT ), -/* MUT_ARR_PTRS_FROZEN = */ (_HNF| _NS| _UPT ), -/* MUT_VAR_CLEAN = */ (_HNF| _NS| _MUT|_UPT ), -/* MUT_VAR_DIRTY = */ (_HNF| _NS| _MUT|_UPT ), -/* WEAK = */ (_HNF| _NS| _UPT ), -/* STABLE_NAME = */ (_HNF| _NS| _UPT ), -/* TSO = */ (_HNF| _NS| _MUT|_UPT ), -/* BLOCKED_FETCH = */ (_HNF| _NS| _MUT|_UPT ), -/* FETCH_ME = */ (_HNF| _NS| _MUT|_UPT ), -/* FETCH_ME_BQ = */ ( _NS| _MUT|_UPT ), -/* RBH = */ ( _NS| _MUT|_UPT ), -/* EVACUATED = */ ( 0 ), -/* REMOTE_REF = */ (_HNF| _NS| _UPT ), -/* TVAR_WAIT_QUEUE = */ ( _NS| _MUT|_UPT ), -/* TVAR = */ (_HNF| _NS| _MUT|_UPT ), -/* TREC_CHUNK = */ ( _NS| _MUT|_UPT ), -/* TREC_HEADER = */ ( _NS| _MUT|_UPT ), -/* ATOMICALLY_FRAME = */ ( _BTM ), -/* CATCH_RETRY_FRAME = */ ( _BTM ), -/* CATCH_STM_FRAME = */ ( _BTM ) -}; - -#if N_CLOSURE_TYPES != 73 -#error Closure types changed: update ClosureFlags.c! -#endif - |