diff options
| author | simonmar <unknown> | 2001-01-29 17:23:41 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2001-01-29 17:23:41 +0000 |
| commit | ee3e75b51e5a86dda79bb990a83bfaa49915a22a (patch) | |
| tree | 5080e94899a9e26ff6ee637e7af13ffd6474d302 /ghc/rts/ClosureFlags.c | |
| parent | 489aed0633fced729097280d760db9d497481846 (diff) | |
| download | haskell-ee3e75b51e5a86dda79bb990a83bfaa49915a22a.tar.gz | |
[project @ 2001-01-29 17:23:40 by simonmar]
Remove the old Hugs CAF code, install our own (minimal, somewhat
cryptic, but better commented) CAF reversion story. See
Storage.c:newCaf() for the details.
Diffstat (limited to 'ghc/rts/ClosureFlags.c')
| -rw-r--r-- | ghc/rts/ClosureFlags.c | 134 |
1 files changed, 65 insertions, 69 deletions
diff --git a/ghc/rts/ClosureFlags.c b/ghc/rts/ClosureFlags.c index 89e98e4728..492eb39ef8 100644 --- a/ghc/rts/ClosureFlags.c +++ b/ghc/rts/ClosureFlags.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: ClosureFlags.c,v 1.6 2000/01/13 14:34:02 hwloidl Exp $ + * $Id: ClosureFlags.c,v 1.7 2001/01/29 17:23:40 simonmar Exp $ * * (c) The GHC Team 1998-1999 * @@ -26,73 +26,69 @@ StgWord16 closure_flags[] = { /* 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 ), -/* FUN_0_1 */ (_HNF| _NS ), -/* FUN_2_0 */ (_HNF| _NS ), -/* FUN_1_1 */ (_HNF| _NS ), -/* FUN_0_2 */ (_HNF| _NS ), -/* 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_UPD */ ( _BTM| _THU ), -/* PAP */ (_HNF| _NS ), -/* IND */ ( _NS ), -/* IND_OLDGEN */ ( _NS ), -/* IND_PERM */ ( _NS ), -/* IND_OLDGEN_PERM */ ( _NS ), -/* IND_STATIC */ ( _NS|_STA ), -/* CAF_UNENTERED */ ( 0 ), -/* CAF_ENTERED */ ( 0 ), -/* CAF_BLACKHOLE */ ( _BTM|_NS| _MUT|_UPT ), -/* RET_BCO */ ( _BTM ), -/* RET_SMALL */ ( _BTM| _SRT), -/* RET_VEC_SMALL */ ( _BTM| _SRT), -/* RET_BIG */ ( _SRT), -/* RET_VEC_BIG */ ( _SRT), -/* RET_DYN */ ( _SRT), -/* UPDATE_FRAME */ ( _BTM ), -/* CATCH_FRAME */ ( _BTM ), -/* STOP_FRAME */ ( _BTM ), -/* SEQ_FRAME */ ( _BTM ), -/* BLACKHOLE */ ( _NS| _MUT|_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_FROZEN */ (_HNF| _NS| _MUT|_UPT ), -/* MUT_VAR */ (_HNF| _NS| _MUT|_UPT ), -/* WEAK */ (_HNF| _NS| _UPT ), -/* FOREIGN */ (_HNF| _NS| _UPT ), -/* STABLE_NAME */ (_HNF| _NS| _UPT ), +[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 ), +[FUN_0_1 ] = (_HNF| _NS ), +[FUN_2_0 ] = (_HNF| _NS ), +[FUN_1_1 ] = (_HNF| _NS ), +[FUN_0_2 ] = (_HNF| _NS ), +[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_UPD ] = ( _BTM| _THU ), +[PAP ] = (_HNF| _NS ), +[IND ] = ( _NS ), +[IND_OLDGEN ] = ( _NS ), +[IND_PERM ] = ( _NS ), +[IND_OLDGEN_PERM ] = ( _NS ), +[IND_STATIC ] = ( _NS|_STA ), +[CAF_BLACKHOLE ] = ( _BTM|_NS| _MUT|_UPT ), +[RET_BCO ] = ( _BTM ), +[RET_SMALL ] = ( _BTM| _SRT), +[RET_VEC_SMALL ] = ( _BTM| _SRT), +[RET_BIG ] = ( _SRT), +[RET_VEC_BIG ] = ( _SRT), +[RET_DYN ] = ( _SRT), +[UPDATE_FRAME ] = ( _BTM ), +[CATCH_FRAME ] = ( _BTM ), +[STOP_FRAME ] = ( _BTM ), +[SEQ_FRAME ] = ( _BTM ), +[BLACKHOLE ] = ( _NS| _MUT|_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_FROZEN ] = (_HNF| _NS| _MUT|_UPT ), +[MUT_VAR ] = (_HNF| _NS| _MUT|_UPT ), +[WEAK ] = (_HNF| _NS| _UPT ), +[FOREIGN ] = (_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 ), -/* 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 ), - -/* N_CLOSURE_TYPES */ ( 0 ) +[N_CLOSURE_TYPES ] = ( 0 ) }; |