1 /* ----------------------------------------------------------------------------
3 * (c) The GHC Team, 1998-2005
5 * Closure Type Constants: out here because the native code generator
6 * needs to get at them.
8 * -------------------------------------------------------------------------- */
10 #ifndef CLOSURETYPES_H
11 #define CLOSURETYPES_H
14 * WARNING WARNING WARNING
16 * Keep the closure tags contiguous: rts/ClosureFlags.c relies on
19 * If you add or delete any closure types, don't forget to update
20 * the closure flags table in rts/ClosureFlags.c.
23 /* Object tag 0 raises an internal error */
24 #define INVALID_OBJECT 0
31 #define CONSTR_STATIC 7
32 #define CONSTR_NOCAF_STATIC 8
46 #define THUNK_STATIC 22
47 #define THUNK_SELECTOR 23
55 #define IND_OLDGEN_PERM 31
62 #define UPDATE_FRAME 38
63 #define CATCH_FRAME 39
65 #define CAF_BLACKHOLE 41
70 #define MUT_ARR_PTRS_CLEAN 46
71 #define MUT_ARR_PTRS_DIRTY 47
72 #define MUT_ARR_PTRS_FROZEN0 48
73 #define MUT_ARR_PTRS_FROZEN 49
74 #define MUT_VAR_CLEAN 50
75 #define MUT_VAR_DIRTY 51
77 #define STABLE_NAME 53
79 #define BLOCKED_FETCH 55
81 #define FETCH_ME_BQ 57
84 #define TVAR_WATCH_QUEUE 60
85 #define INVARIANT_CHECK_QUEUE 61
86 #define ATOMIC_INVARIANT 62
89 #define TREC_HEADER 65
90 #define ATOMICALLY_FRAME 66
91 #define CATCH_RETRY_FRAME 67
92 #define CATCH_STM_FRAME 68
94 #define N_CLOSURE_TYPES 70
96 #endif /* CLOSURETYPES_H */