[project @ 1999-01-13 17:25:37 by simonm]
[ghc-hetmet.git] / ghc / includes / ClosureTypes.h
1 /* ----------------------------------------------------------------------------
2  * $Id: ClosureTypes.h,v 1.3 1999/01/13 17:25:52 simonm Exp $
3  * 
4  * Closure Type Constants
5  *
6  * -------------------------------------------------------------------------- */
7
8 #ifndef CLOSURETYPES_H
9 #define CLOSURETYPES_H
10
11 /* Out here because the native code generator needs to get at them. */
12
13 /* Object tag 0 raises an internal error */
14 #define INVALID_OBJECT          0
15 #define CONSTR                  1
16 /* #define CONSTR_p_np */       
17 #define CONSTR_INTLIKE          2
18 #define CONSTR_CHARLIKE         3
19 #define CONSTR_STATIC           4
20 #define CONSTR_NOCAF_STATIC     5
21 #define FUN                     6
22 #define FUN_STATIC              7
23 #define THUNK                   8
24 /* #define THUNK_p_np */        
25 #define THUNK_STATIC            9
26 #define THUNK_SELECTOR          10
27 #define BCO                     11
28 #define AP_UPD                  12
29 #define PAP                     13
30 #define IND                     14
31 #define IND_OLDGEN              15
32 #define IND_PERM                16
33 #define IND_OLDGEN_PERM         17
34 #define IND_STATIC              18
35 #define CAF_UNENTERED           19
36 #define CAF_ENTERED             20
37 #define CAF_BLACKHOLE           21
38 #define RET_BCO                 22
39 #define RET_SMALL               23
40 #define RET_VEC_SMALL           24
41 #define RET_BIG                 25
42 #define RET_VEC_BIG             26
43 #define RET_DYN                 27
44 #define UPDATE_FRAME            28
45 #define UPDATE_STATIC_FRAME     29
46 #define CATCH_FRAME             30
47 #define STOP_FRAME              31
48 #define SEQ_FRAME               32
49 #define BLACKHOLE               33
50 #define BLACKHOLE_STATIC        34
51 #define MVAR                    35
52 #define ARR_WORDS               36
53 #define MUT_ARR_WORDS           37
54 #define MUT_ARR_PTRS            38
55 #define MUT_ARR_PTRS_FROZEN     39
56 #define MUT_VAR                 40
57 #define WEAK                    41
58 #define FOREIGN                 42
59 #define TSO                     43
60 #define BLOCKED_FETCH           44
61 #define FETCH_ME                45
62 #define EVACUATED               46
63
64 #endif CLOSURETYPES_H