1 /* ----------------------------------------------------------------------------
2 * $Id: ClosureTypes.h,v 1.16 2001/07/23 17:23:19 simonmar Exp $
4 * (c) The GHC Team, 1998-1999
6 * Closure Type Constants
8 * -------------------------------------------------------------------------- */
10 #ifndef CLOSURETYPES_H
11 #define CLOSURETYPES_H
13 /* Out here because the native code generator needs to get at them. */
15 /* Object tag 0 raises an internal error */
16 #define INVALID_OBJECT 0
23 #define CONSTR_INTLIKE 7
24 #define CONSTR_CHARLIKE 8
25 #define CONSTR_STATIC 9
26 #define CONSTR_NOCAF_STATIC 10
40 #define THUNK_STATIC 24
41 #define THUNK_SELECTOR 25
48 #define IND_OLDGEN_PERM 32
52 #define RET_VEC_SMALL 38
54 #define RET_VEC_BIG 40
56 #define UPDATE_FRAME 42
57 #define CATCH_FRAME 43
60 #define CAF_BLACKHOLE 46
62 #define BLACKHOLE_BQ 48
63 #define SE_BLACKHOLE 49
64 #define SE_CAF_BLACKHOLE 50
67 #define MUT_ARR_PTRS 53
68 #define MUT_ARR_PTRS_FROZEN 54
73 #define STABLE_NAME 59
76 #define BLOCKED_FETCH 61
78 #define FETCH_ME_BQ 63
85 #define N_CLOSURE_TYPES 67
87 #endif /* CLOSURETYPES_H */