Commit 4f603db2 authored by parcs's avatar parcs

Untab ClosureTypes.h and ClosureFlags.c

parent cd038938
...@@ -20,59 +20,59 @@ ...@@ -20,59 +20,59 @@
/* Object tag 0 raises an internal error */ /* Object tag 0 raises an internal error */
#define INVALID_OBJECT 0 #define INVALID_OBJECT 0
#define CONSTR 1 #define CONSTR 1
#define CONSTR_1_0 2 #define CONSTR_1_0 2
#define CONSTR_0_1 3 #define CONSTR_0_1 3
#define CONSTR_2_0 4 #define CONSTR_2_0 4
#define CONSTR_1_1 5 #define CONSTR_1_1 5
#define CONSTR_0_2 6 #define CONSTR_0_2 6
#define CONSTR_STATIC 7 #define CONSTR_STATIC 7
#define CONSTR_NOCAF_STATIC 8 #define CONSTR_NOCAF_STATIC 8
#define FUN 9 #define FUN 9
#define FUN_1_0 10 #define FUN_1_0 10
#define FUN_0_1 11 #define FUN_0_1 11
#define FUN_2_0 12 #define FUN_2_0 12
#define FUN_1_1 13 #define FUN_1_1 13
#define FUN_0_2 14 #define FUN_0_2 14
#define FUN_STATIC 15 #define FUN_STATIC 15
#define THUNK 16 #define THUNK 16
#define THUNK_1_0 17 #define THUNK_1_0 17
#define THUNK_0_1 18 #define THUNK_0_1 18
#define THUNK_2_0 19 #define THUNK_2_0 19
#define THUNK_1_1 20 #define THUNK_1_1 20
#define THUNK_0_2 21 #define THUNK_0_2 21
#define THUNK_STATIC 22 #define THUNK_STATIC 22
#define THUNK_SELECTOR 23 #define THUNK_SELECTOR 23
#define BCO 24 #define BCO 24
#define AP 25 #define AP 25
#define PAP 26 #define PAP 26
#define AP_STACK 27 #define AP_STACK 27
#define IND 28 #define IND 28
#define IND_PERM 29 #define IND_PERM 29
#define IND_STATIC 30 #define IND_STATIC 30
#define RET_BCO 31 #define RET_BCO 31
#define RET_SMALL 32 #define RET_SMALL 32
#define RET_BIG 33 #define RET_BIG 33
#define RET_FUN 34 #define RET_FUN 34
#define UPDATE_FRAME 35 #define UPDATE_FRAME 35
#define CATCH_FRAME 36 #define CATCH_FRAME 36
#define UNDERFLOW_FRAME 37 #define UNDERFLOW_FRAME 37
#define STOP_FRAME 38 #define STOP_FRAME 38
#define BLOCKING_QUEUE 39 #define BLOCKING_QUEUE 39
#define BLACKHOLE 40 #define BLACKHOLE 40
#define MVAR_CLEAN 41 #define MVAR_CLEAN 41
#define MVAR_DIRTY 42 #define MVAR_DIRTY 42
#define TVAR 43 #define TVAR 43
#define ARR_WORDS 44 #define ARR_WORDS 44
#define MUT_ARR_PTRS_CLEAN 45 #define MUT_ARR_PTRS_CLEAN 45
#define MUT_ARR_PTRS_DIRTY 46 #define MUT_ARR_PTRS_DIRTY 46
#define MUT_ARR_PTRS_FROZEN0 47 #define MUT_ARR_PTRS_FROZEN0 47
#define MUT_ARR_PTRS_FROZEN 48 #define MUT_ARR_PTRS_FROZEN 48
#define MUT_VAR_CLEAN 49 #define MUT_VAR_CLEAN 49
#define MUT_VAR_DIRTY 50 #define MUT_VAR_DIRTY 50
#define WEAK 51 #define WEAK 51
#define PRIM 52 #define PRIM 52
#define MUT_PRIM 53 #define MUT_PRIM 53
#define TSO 54 #define TSO 54
#define STACK 55 #define STACK 55
#define TREC_CHUNK 56 #define TREC_CHUNK 56
#define ATOMICALLY_FRAME 57 #define ATOMICALLY_FRAME 57
......
...@@ -19,24 +19,24 @@ StgWord16 closure_flags[] = { ...@@ -19,24 +19,24 @@ StgWord16 closure_flags[] = {
*/ */
/* 0 1 2 3 4 5 6 7 8 */ /* 0 1 2 3 4 5 6 7 8 */
/* HNF BTM NS STA THU MUT UPT SRT IND */ /* HNF BTM NS STA THU MUT UPT SRT IND */
[INVALID_OBJECT] = ( 0 ), [INVALID_OBJECT] = ( 0 ),
[CONSTR] = (_HNF| _NS ), [CONSTR] = (_HNF| _NS ),
[CONSTR_1_0] = (_HNF| _NS ), [CONSTR_1_0] = (_HNF| _NS ),
[CONSTR_0_1] = (_HNF| _NS ), [CONSTR_0_1] = (_HNF| _NS ),
[CONSTR_2_0] = (_HNF| _NS ), [CONSTR_2_0] = (_HNF| _NS ),
[CONSTR_1_1] = (_HNF| _NS ), [CONSTR_1_1] = (_HNF| _NS ),
[CONSTR_0_2] = (_HNF| _NS ), [CONSTR_0_2] = (_HNF| _NS ),
[CONSTR_STATIC] = (_HNF| _NS|_STA ), [CONSTR_STATIC] = (_HNF| _NS|_STA ),
[CONSTR_NOCAF_STATIC] = (_HNF| _NS|_STA ), [CONSTR_NOCAF_STATIC] = (_HNF| _NS|_STA ),
[FUN] = (_HNF| _NS| _SRT ), [FUN] = (_HNF| _NS| _SRT ),
[FUN_1_0] = (_HNF| _NS| _SRT ), [FUN_1_0] = (_HNF| _NS| _SRT ),
[FUN_0_1] = (_HNF| _NS| _SRT ), [FUN_0_1] = (_HNF| _NS| _SRT ),
[FUN_2_0] = (_HNF| _NS| _SRT ), [FUN_2_0] = (_HNF| _NS| _SRT ),
[FUN_1_1] = (_HNF| _NS| _SRT ), [FUN_1_1] = (_HNF| _NS| _SRT ),
[FUN_0_2] = (_HNF| _NS| _SRT ), [FUN_0_2] = (_HNF| _NS| _SRT ),
[FUN_STATIC] = (_HNF| _NS|_STA| _SRT ), [FUN_STATIC] = (_HNF| _NS|_STA| _SRT ),
[THUNK] = ( _THU| _SRT ), [THUNK] = ( _THU| _SRT ),
[THUNK_1_0] = ( _THU| _SRT ), [THUNK_1_0] = ( _THU| _SRT ),
[THUNK_0_1] = ( _THU| _SRT ), [THUNK_0_1] = ( _THU| _SRT ),
...@@ -45,43 +45,43 @@ StgWord16 closure_flags[] = { ...@@ -45,43 +45,43 @@ StgWord16 closure_flags[] = {
[THUNK_0_2] = ( _THU| _SRT ), [THUNK_0_2] = ( _THU| _SRT ),
[THUNK_STATIC] = ( _STA|_THU| _SRT ), [THUNK_STATIC] = ( _STA|_THU| _SRT ),
[THUNK_SELECTOR] = ( _THU| _SRT ), [THUNK_SELECTOR] = ( _THU| _SRT ),
[BCO] = (_HNF| _NS ), [BCO] = (_HNF| _NS ),
[AP] = ( _THU ), [AP] = ( _THU ),
[PAP] = (_HNF| _NS ), [PAP] = (_HNF| _NS ),
[AP_STACK] = ( _THU ), [AP_STACK] = ( _THU ),
[IND] = ( _NS| _IND ), [IND] = ( _NS| _IND ),
[IND_PERM] = ( _NS| _IND ), [IND_PERM] = ( _NS| _IND ),
[IND_STATIC] = ( _NS|_STA| _IND ), [IND_STATIC] = ( _NS|_STA| _IND ),
[RET_BCO] = ( 0 ), [RET_BCO] = ( 0 ),
[RET_SMALL] = ( _BTM| _SRT ), [RET_SMALL] = ( _BTM| _SRT ),
[RET_BIG] = ( _SRT ), [RET_BIG] = ( _SRT ),
[RET_FUN] = ( 0 ), [RET_FUN] = ( 0 ),
[UPDATE_FRAME] = ( _BTM ), [UPDATE_FRAME] = ( _BTM ),
[CATCH_FRAME] = ( _BTM ), [CATCH_FRAME] = ( _BTM ),
[UNDERFLOW_FRAME] = ( _BTM ), [UNDERFLOW_FRAME] = ( _BTM ),
[STOP_FRAME] = ( _BTM ), [STOP_FRAME] = ( _BTM ),
[BLACKHOLE] = ( _NS| _UPT ), [BLACKHOLE] = ( _NS| _UPT ),
[BLOCKING_QUEUE] = ( _NS| _MUT|_UPT ), [BLOCKING_QUEUE] = ( _NS| _MUT|_UPT ),
[MVAR_CLEAN] = (_HNF| _NS| _MUT|_UPT ), [MVAR_CLEAN] = (_HNF| _NS| _MUT|_UPT ),
[MVAR_DIRTY] = (_HNF| _NS| _MUT|_UPT ), [MVAR_DIRTY] = (_HNF| _NS| _MUT|_UPT ),
[TVAR] = (_HNF| _NS| _MUT|_UPT ), [TVAR] = (_HNF| _NS| _MUT|_UPT ),
[ARR_WORDS] = (_HNF| _NS| _UPT ), [ARR_WORDS] = (_HNF| _NS| _UPT ),
[MUT_ARR_PTRS_CLEAN] = (_HNF| _NS| _MUT|_UPT ), [MUT_ARR_PTRS_CLEAN] = (_HNF| _NS| _MUT|_UPT ),
[MUT_ARR_PTRS_DIRTY] = (_HNF| _NS| _MUT|_UPT ), [MUT_ARR_PTRS_DIRTY] = (_HNF| _NS| _MUT|_UPT ),
[MUT_ARR_PTRS_FROZEN0] = (_HNF| _NS| _MUT|_UPT ), [MUT_ARR_PTRS_FROZEN0] = (_HNF| _NS| _MUT|_UPT ),
[MUT_ARR_PTRS_FROZEN] = (_HNF| _NS| _UPT ), [MUT_ARR_PTRS_FROZEN] = (_HNF| _NS| _UPT ),
[MUT_VAR_CLEAN] = (_HNF| _NS| _MUT|_UPT ), [MUT_VAR_CLEAN] = (_HNF| _NS| _MUT|_UPT ),
[MUT_VAR_DIRTY] = (_HNF| _NS| _MUT|_UPT ), [MUT_VAR_DIRTY] = (_HNF| _NS| _MUT|_UPT ),
[WEAK] = (_HNF| _NS| _UPT ), [WEAK] = (_HNF| _NS| _UPT ),
[PRIM] = (_HNF| _NS| _UPT ), [PRIM] = (_HNF| _NS| _UPT ),
[MUT_PRIM] = (_HNF| _NS| _MUT|_UPT ), [MUT_PRIM] = (_HNF| _NS| _MUT|_UPT ),
[TSO] = (_HNF| _NS| _MUT|_UPT ), [TSO] = (_HNF| _NS| _MUT|_UPT ),
[STACK] = (_HNF| _NS| _MUT|_UPT ), [STACK] = (_HNF| _NS| _MUT|_UPT ),
[TREC_CHUNK] = ( _NS| _MUT|_UPT ), [TREC_CHUNK] = ( _NS| _MUT|_UPT ),
[ATOMICALLY_FRAME] = ( _BTM ), [ATOMICALLY_FRAME] = ( _BTM ),
[CATCH_RETRY_FRAME] = ( _BTM ), [CATCH_RETRY_FRAME] = ( _BTM ),
[CATCH_STM_FRAME] = ( _BTM ), [CATCH_STM_FRAME] = ( _BTM ),
[WHITEHOLE] = ( 0 ) [WHITEHOLE] = ( 0 )
}; };
#if N_CLOSURE_TYPES != 61 #if N_CLOSURE_TYPES != 61
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment