X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FClosureTypes.h;h=99aaf9ffe50036379f73c97d66ecc667ec3fabda;hb=76f99ef2cb3cc8b83d1123c7728d629d69a4eaf4;hp=65502a73db0d07d416a532ed594a64db67382fcc;hpb=a5dc9cdae04f5e0c1f2d13a53bb06c52f0a8c8c9;p=ghc-hetmet.git

diff --git a/ghc/includes/ClosureTypes.h b/ghc/includes/ClosureTypes.h
index 65502a7..99aaf9f 100644
--- a/ghc/includes/ClosureTypes.h
+++ b/ghc/includes/ClosureTypes.h
@@ -1,14 +1,24 @@
 /* ----------------------------------------------------------------------------
- * $Id: ClosureTypes.h,v 1.8 1999/02/05 15:25:01 simonm Exp $
  * 
- * Closure Type Constants
+ * (c) The GHC Team, 1998-2005
+ *
+ * Closure Type Constants: out here because the native code generator
+ * needs to get at them.
  *
  * -------------------------------------------------------------------------- */
 
 #ifndef CLOSURETYPES_H
 #define CLOSURETYPES_H
 
-/* Out here because the native code generator needs to get at them. */
+/* 
+ * WARNING WARNING WARNING
+ *
+ * Keep the closure tags contiguous: rts/ClosureFlags.c relies on
+ * this.
+ *
+ * If you add or delete any closure types, don't forget to update
+ * the closure flags table in rts/ClosureFlags.c.
+ */
 
 /* Object tag 0 raises an internal error */
 #define INVALID_OBJECT          0
@@ -38,39 +48,50 @@
 #define THUNK_STATIC	        24
 #define THUNK_SELECTOR	        25
 #define BCO		        26
-#define AP_UPD		        27
+#define AP		        27
 #define PAP			28
-#define IND		        29
-#define IND_OLDGEN	        30
-#define IND_PERM	        31
-#define IND_OLDGEN_PERM	        32
-#define IND_STATIC	        33
-#define CAF_UNENTERED           34
-#define CAF_ENTERED		35
-#define CAF_BLACKHOLE		36
-#define RET_BCO                 37
-#define RET_SMALL	        38
-#define RET_VEC_SMALL	        39
-#define RET_BIG		        40
-#define RET_VEC_BIG	        41
-#define RET_DYN		        42
-#define UPDATE_FRAME	        43
-#define CATCH_FRAME	        44
-#define STOP_FRAME	        45
-#define SEQ_FRAME	        46
-#define BLACKHOLE	        47
-#define BLACKHOLE_BQ	        48
-#define MVAR		        49
+#define AP_STACK                29
+#define IND		        30
+#define IND_OLDGEN	        31
+#define IND_PERM	        32
+#define IND_OLDGEN_PERM	        33
+#define IND_STATIC	        34
+#define RET_BCO                 35
+#define RET_SMALL	        36
+#define RET_VEC_SMALL	        37
+#define RET_BIG		        38
+#define RET_VEC_BIG	        39
+#define RET_DYN		        40
+#define RET_FUN                 41
+#define UPDATE_FRAME	        42
+#define CATCH_FRAME	        43
+#define STOP_FRAME	        44
+#define CAF_BLACKHOLE		45
+#define BLACKHOLE	        46
+#define SE_BLACKHOLE		47
+#define SE_CAF_BLACKHOLE	48
+#define MVAR		        59
 #define ARR_WORDS	        50
 #define MUT_ARR_PTRS	        51
-#define MUT_ARR_PTRS_FROZEN     52
-#define MUT_VAR		        53
-#define WEAK		        54
-#define FOREIGN		        55
+#define MUT_ARR_PTRS_FROZEN0    52
+#define MUT_ARR_PTRS_FROZEN     53
+#define MUT_VAR		        54
+#define WEAK		        55
 #define STABLE_NAME	        56
 #define TSO		        57
-#define BLOCKED_FETCH	        58
+#define BLOCKED_FETCH	        68
 #define FETCH_ME                69
-#define EVACUATED               60
+#define FETCH_ME_BQ             60
+#define RBH                     61
+#define EVACUATED               62
+#define REMOTE_REF              63
+#define TVAR_WAIT_QUEUE         64
+#define TVAR                    65
+#define TREC_CHUNK              66
+#define TREC_HEADER             67
+#define ATOMICALLY_FRAME        78
+#define CATCH_RETRY_FRAME       79
+#define CATCH_STM_FRAME         70
+#define N_CLOSURE_TYPES         71
 
-#endif CLOSURETYPES_H
+#endif /* CLOSURETYPES_H */