1 /* ----------------------------------------------------------------------------
2 * $Id: ClosureTypes.h,v 1.18 2002/12/11 15:36:37 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
49 #define IND_OLDGEN_PERM 33
53 #define RET_VEC_SMALL 37
55 #define RET_VEC_BIG 39
58 #define UPDATE_FRAME 42
59 #define CATCH_FRAME 43
61 #define CAF_BLACKHOLE 45
63 #define BLACKHOLE_BQ 47
64 #define SE_BLACKHOLE 48
65 #define SE_CAF_BLACKHOLE 49
68 #define MUT_ARR_PTRS 52
69 #define MUT_ARR_PTRS_FROZEN 53
74 #define STABLE_NAME 58
76 #define BLOCKED_FETCH 60
78 #define FETCH_ME_BQ 62
82 #define N_CLOSURE_TYPES 66
84 #endif /* CLOSURETYPES_H */