1 /* ----------------------------------------------------------------------------
2 * $Id: ClosureTypes.h,v 1.10 1999/03/15 16:30:24 simonm 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
50 #define CAF_UNENTERED 34
51 #define CAF_ENTERED 35
52 #define CAF_BLACKHOLE 36
55 #define RET_VEC_SMALL 39
57 #define RET_VEC_BIG 41
59 #define UPDATE_FRAME 43
60 #define CATCH_FRAME 44
64 #define BLACKHOLE_BQ 48
67 #define MUT_ARR_PTRS 51
68 #define MUT_ARR_PTRS_FROZEN 52
72 #define STABLE_NAME 56
74 #define BLOCKED_FETCH 58
77 #define N_CLOSURE_TYPES 61