Use message-passing to implement throwTo in the RTS

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

diff --git a/includes/rts/storage/ClosureTypes.h b/includes/rts/storage/ClosureTypes.h
index 3415d42..6a76772 100644 (file)
--- a/includes/rts/storage/ClosureTypes.h
+++ b/includes/rts/storage/ClosureTypes.h
@@ -74,23 +74,14 @@
 #define MUT_VAR_CLEAN          50
 #define MUT_VAR_DIRTY          51
 #define WEAK                   52
-#define STABLE_NAME            53
-#define TSO                    54
-#define BLOCKED_FETCH          55
-#define FETCH_ME                56
-#define FETCH_ME_BQ             57
-#define RBH                     58
-#define REMOTE_REF              59
-#define TVAR_WATCH_QUEUE        60
-#define INVARIANT_CHECK_QUEUE   61
-#define ATOMIC_INVARIANT        62
-#define TVAR                    63
-#define TREC_CHUNK              64
-#define TREC_HEADER             65
-#define ATOMICALLY_FRAME        66
-#define CATCH_RETRY_FRAME       67
-#define CATCH_STM_FRAME         68
-#define WHITEHOLE               69
-#define N_CLOSURE_TYPES         70
+#define PRIM                   53
+#define MUT_PRIM                54
+#define TSO                    55
+#define TREC_CHUNK              56
+#define ATOMICALLY_FRAME        57
+#define CATCH_RETRY_FRAME       58
+#define CATCH_STM_FRAME         59
+#define WHITEHOLE               60
+#define N_CLOSURE_TYPES         61
 
 #endif /* RTS_STORAGE_CLOSURETYPES_H */