1 /* -----------------------------------------------------------------------------
2 * $Id: ClosureFlags.c,v 1.4 1999/11/09 15:46:49 simonmar Exp $
4 * (c) The GHC Team 1998-1999
8 * ---------------------------------------------------------------------------*/
12 StgWord16 closure_flags[] = {
15 * These *must* be in the same order as the closure types in
19 /* HNF BTM NS STA THU MUT UPT SRT */
21 /* INVALID_OBJECT */ ( 0 ),
22 /* CONSTR */ (_HNF| _NS ),
23 /* CONSTR_1_0 */ (_HNF| _NS ),
24 /* CONSTR_0_1 */ (_HNF| _NS ),
25 /* CONSTR_2_0 */ (_HNF| _NS ),
26 /* CONSTR_1_1 */ (_HNF| _NS ),
27 /* CONSTR_0_2 */ (_HNF| _NS ),
28 /* CONSTR_INTLIKE */ (_HNF| _NS|_STA ),
29 /* CONSTR_CHARLIKE */ (_HNF| _NS|_STA ),
30 /* CONSTR_STATIC */ (_HNF| _NS|_STA ),
31 /* CONSTR_NOCAF_STATIC */ (_HNF| _NS|_STA ),
32 /* FUN */ (_HNF| _NS| _SRT ),
33 /* FUN_1_0 */ (_HNF| _NS ),
34 /* FUN_0_1 */ (_HNF| _NS ),
35 /* FUN_2_0 */ (_HNF| _NS ),
36 /* FUN_1_1 */ (_HNF| _NS ),
37 /* FUN_0_2 */ (_HNF| _NS ),
38 /* FUN_STATIC */ (_HNF| _NS|_STA| _SRT ),
39 /* THUNK */ ( _BTM| _THU| _SRT ),
40 /* THUNK_1_0 */ ( _BTM| _THU| _SRT ),
41 /* THUNK_0_1 */ ( _BTM| _THU| _SRT ),
42 /* THUNK_2_0 */ ( _BTM| _THU| _SRT ),
43 /* THUNK_1_1 */ ( _BTM| _THU| _SRT ),
44 /* THUNK_0_2 */ ( _BTM| _THU| _SRT ),
45 /* THUNK_STATIC */ ( _BTM| _STA|_THU| _SRT ),
46 /* THUNK_SELECTOR */ ( _BTM| _THU| _SRT ),
47 /* BCO */ (_HNF| _NS ),
48 /* AP_UPD */ ( _BTM| _THU ),
49 /* PAP */ (_HNF| _NS ),
51 /* IND_OLDGEN */ ( 0 ),
53 /* IND_OLDGEN_PERM */ ( 0 ),
54 /* IND_STATIC */ ( _STA ),
55 /* CAF_UNENTERED */ ( 0 ),
56 /* CAF_ENTERED */ ( 0 ),
57 /* CAF_BLACKHOLE */ ( _BTM|_NS| _MUT|_UPT ),
58 /* RET_BCO */ ( _BTM ),
59 /* RET_SMALL */ ( _BTM| _SRT),
60 /* RET_VEC_SMALL */ ( _BTM| _SRT),
61 /* RET_BIG */ ( _SRT),
62 /* RET_VEC_BIG */ ( _SRT),
63 /* RET_DYN */ ( _SRT),
64 /* UPDATE_FRAME */ ( _BTM ),
65 /* CATCH_FRAME */ ( _BTM ),
66 /* STOP_FRAME */ ( _BTM ),
67 /* SEQ_FRAME */ ( _BTM ),
68 /* BLACKHOLE */ ( _NS| _MUT|_UPT ),
69 /* BLACKHOLE_BQ */ ( _NS| _MUT|_UPT ),
70 /* SE_BLACKHOLE */ ( _NS| _UPT ),
71 /* SE_CAF_BLACKHOLE */ ( _NS| _UPT ),
72 /* MVAR */ (_HNF| _NS| _MUT|_UPT ),
73 /* ARR_WORDS */ (_HNF| _NS| _UPT ),
74 /* MUT_ARR_PTRS */ (_HNF| _NS| _MUT|_UPT ),
75 /* MUT_ARR_PTRS_FROZEN */ (_HNF| _NS| _MUT|_UPT ),
76 /* MUT_VAR */ (_HNF| _NS| _MUT|_UPT ),
77 /* WEAK */ (_HNF| _NS| _UPT ),
78 /* FOREIGN */ (_HNF| _NS| _UPT ),
79 /* STABLE_NAME */ (_HNF| _NS| _UPT ),
80 /* TSO */ (_HNF| _NS| _MUT|_UPT ),
81 /* BLOCKED_FETCH */ (_HNF| _NS ),
82 /* FETCH_ME */ (_HNF| _NS ),