[project @ 2006-01-06 16:30:17 by simonmar]

[ghc-hetmet.git] / ghc / includes / ClosureTypes.h

diff --git a/ghc/includes/ClosureTypes.h b/ghc/includes/ClosureTypes.h
index 680958f..1ae6072 100644 (file)
--- a/ghc/includes/ClosureTypes.h
+++ b/ghc/includes/ClosureTypes.h
@@ -1,16 +1,24 @@
 /* ----------------------------------------------------------------------------
- * $Id: ClosureTypes.h,v 1.17 2002/03/26 11:09:34 simonmar Exp $
  * 
- * (c) The GHC Team, 1998-1999
+ * (c) The GHC Team, 1998-2005
  *
- * Closure Type Constants
+ * 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
@@ -40,44 +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 RET_BCO                 34
-#define RET_SMALL              35
-#define RET_VEC_SMALL          36
-#define RET_BIG                        37
-#define RET_VEC_BIG            38
-#define RET_DYN                        39
-#define UPDATE_FRAME           40
-#define CATCH_FRAME            41
-#define STOP_FRAME             42
-#define SEQ_FRAME              43
-#define CAF_BLACKHOLE          44
-#define BLACKHOLE              45
-#define BLACKHOLE_BQ           46
+#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                   49
 #define ARR_WORDS              50
 #define MUT_ARR_PTRS           51
-#define MUT_ARR_PTRS_FROZEN     52
-#define MUT_VAR                        53
-#define MUT_CONS                54
+#define MUT_ARR_PTRS_FROZEN0    52
+#define MUT_ARR_PTRS_FROZEN     53
+#define MUT_VAR                        54
 #define WEAK                   55
-#define FOREIGN                        56
-#define STABLE_NAME            57
-#define TSO                    58
-#define BLOCKED_FETCH          59
-#define FETCH_ME                60
-#define FETCH_ME_BQ             61
-#define RBH                     62
-#define EVACUATED               63
-#define REMOTE_REF              64
-#define N_CLOSURE_TYPES         65
+#define STABLE_NAME            56
+#define TSO                    57
+#define BLOCKED_FETCH          58
+#define FETCH_ME                59
+#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        68
+#define CATCH_RETRY_FRAME       69
+#define CATCH_STM_FRAME         70
+#define N_CLOSURE_TYPES         71
 
 #endif /* CLOSURETYPES_H */