X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FClosureTypes.h;h=f8840264f374776ac616ca03db5c507517dfb722;hb=0372ac231bd18e993a2533f784805046876d5527;hp=c384ded7ed8c6a66f1de4b8ca6b7db83377085a7;hpb=0bffc410964e1688ad80d277d53400659e697ab5;p=ghc-hetmet.git

diff --git a/ghc/includes/ClosureTypes.h b/ghc/includes/ClosureTypes.h
index c384ded..f884026 100644
--- a/ghc/includes/ClosureTypes.h
+++ b/ghc/includes/ClosureTypes.h
@@ -1,16 +1,24 @@
 /* ----------------------------------------------------------------------------
- * $Id: ClosureTypes.h,v 1.18 2002/12/11 15:36:37 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
@@ -60,17 +68,17 @@
 #define STOP_FRAME	        44
 #define CAF_BLACKHOLE		45
 #define BLACKHOLE	        46
-#define BLACKHOLE_BQ	        47
-#define SE_BLACKHOLE		48
-#define SE_CAF_BLACKHOLE	49
-#define MVAR		        50
-#define ARR_WORDS	        51
-#define MUT_ARR_PTRS	        52
-#define MUT_ARR_PTRS_FROZEN     53
-#define MUT_VAR		        54
-#define MUT_CONS                55
-#define WEAK		        56
-#define FOREIGN		        57
+#define SE_BLACKHOLE		47
+#define SE_CAF_BLACKHOLE	48
+#define MVAR		        49
+#define ARR_WORDS	        50
+#define MUT_ARR_PTRS_CLEAN      51
+#define MUT_ARR_PTRS_DIRTY      52
+#define MUT_ARR_PTRS_FROZEN0    53
+#define MUT_ARR_PTRS_FROZEN     54
+#define MUT_VAR_CLEAN	        55
+#define MUT_VAR_DIRTY	        56
+#define WEAK		        57
 #define STABLE_NAME	        58
 #define TSO		        59
 #define BLOCKED_FETCH	        60
@@ -79,6 +87,13 @@
 #define RBH                     63
 #define EVACUATED               64
 #define REMOTE_REF              65
-#define N_CLOSURE_TYPES         66
-				
+#define TVAR_WAIT_QUEUE         66
+#define TVAR                    67
+#define TREC_CHUNK              68
+#define TREC_HEADER             69
+#define ATOMICALLY_FRAME        70
+#define CATCH_RETRY_FRAME       71
+#define CATCH_STM_FRAME         72
+#define N_CLOSURE_TYPES         73
+
 #endif /* CLOSURETYPES_H */