1 /* ----------------------------------------------------------------------------
2 * $Id: ClosureTypes.h,v 1.17 2002/03/26 11:09:34 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 36
54 #define RET_VEC_BIG 38
56 #define UPDATE_FRAME 40
57 #define CATCH_FRAME 41
60 #define CAF_BLACKHOLE 44
62 #define BLACKHOLE_BQ 46
63 #define SE_BLACKHOLE 47
64 #define SE_CAF_BLACKHOLE 48
67 #define MUT_ARR_PTRS 51
68 #define MUT_ARR_PTRS_FROZEN 52
73 #define STABLE_NAME 57
75 #define BLOCKED_FETCH 59
77 #define FETCH_ME_BQ 61
81 #define N_CLOSURE_TYPES 65
83 #endif /* CLOSURETYPES_H */