/* ----------------------------------------------------------------------------
*
- * (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
#define STOP_FRAME 44
#define CAF_BLACKHOLE 45
#define BLACKHOLE 46
-#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_FROZEN0 53
-#define MUT_ARR_PTRS_FROZEN 54
-#define MUT_VAR 55
-#define WEAK 56
-#define FOREIGN 57
-#define STABLE_NAME 58
-#define TSO 59
-#define BLOCKED_FETCH 60
-#define FETCH_ME 61
-#define FETCH_ME_BQ 62
-#define RBH 63
-#define EVACUATED 64
-#define REMOTE_REF 65
-#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
+#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_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 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 */