1 /* ----------------------------------------------------------------------------
3 * (c) The GHC Team, 1998-1999
5 * Closure Type Constants
7 * -------------------------------------------------------------------------- */
10 #define CLOSURETYPES_H
12 /* Out here because the native code generator needs to get at them. */
14 /* Object tag 0 raises an internal error */
15 #define INVALID_OBJECT 0
22 #define CONSTR_INTLIKE 7
23 #define CONSTR_CHARLIKE 8
24 #define CONSTR_STATIC 9
25 #define CONSTR_NOCAF_STATIC 10
39 #define THUNK_STATIC 24
40 #define THUNK_SELECTOR 25
48 #define IND_OLDGEN_PERM 33
52 #define RET_VEC_SMALL 37
54 #define RET_VEC_BIG 39
57 #define UPDATE_FRAME 42
58 #define CATCH_FRAME 43
60 #define CAF_BLACKHOLE 45
62 #define SE_BLACKHOLE 48
63 #define SE_CAF_BLACKHOLE 49
66 #define MUT_ARR_PTRS 52
67 #define MUT_ARR_PTRS_FROZEN0 53
68 #define MUT_ARR_PTRS_FROZEN 54
72 #define STABLE_NAME 58
74 #define BLOCKED_FETCH 60
76 #define FETCH_ME_BQ 62
80 #define TVAR_WAIT_QUEUE 66
83 #define TREC_HEADER 69
84 #define ATOMICALLY_FRAME 70
85 #define CATCH_RETRY_FRAME 71
86 #define CATCH_STM_FRAME 72
87 #define N_CLOSURE_TYPES 73
89 #endif /* CLOSURETYPES_H */