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 RTS_STORAGE_CLOSURETYPES_H
11 #define RTS_STORAGE_CLOSURETYPES_H
14 * WARNING WARNING WARNING
16 * If you add or delete any closure types, don't forget to update
17 * the closure flags table in rts/ClosureFlags.c.
20 /* Object tag 0 raises an internal error */
21 #define INVALID_OBJECT 0
28 #define CONSTR_STATIC 7
29 #define CONSTR_NOCAF_STATIC 8
43 #define THUNK_STATIC 22
44 #define THUNK_SELECTOR 23
57 #define UPDATE_FRAME 36
58 #define CATCH_FRAME 37
59 #define UNDERFLOW_FRAME 38
61 #define BLOCKING_QUEUE 40
66 #define MUT_ARR_PTRS_CLEAN 45
67 #define MUT_ARR_PTRS_DIRTY 46
68 #define MUT_ARR_PTRS_FROZEN0 47
69 #define MUT_ARR_PTRS_FROZEN 48
70 #define MUT_VAR_CLEAN 49
71 #define MUT_VAR_DIRTY 50
78 #define ATOMICALLY_FRAME 57
79 #define CATCH_RETRY_FRAME 58
80 #define CATCH_STM_FRAME 59
82 #define N_CLOSURE_TYPES 61
84 #endif /* RTS_STORAGE_CLOSURETYPES_H */