X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2Frts%2Fstorage%2FClosureTypes.h;h=518d39bb1134aeb9457f1c47a57e086593cdda90;hb=5d52d9b64c21dcf77849866584744722f8121389;hp=3415d423a35487504d6df6311a5374d623cbc2f8;hpb=a2a67cd520b9841114d69a87a423dabcb3b4368e;p=ghc-hetmet.git

diff --git a/includes/rts/storage/ClosureTypes.h b/includes/rts/storage/ClosureTypes.h
index 3415d42..518d39b 100644
--- a/includes/rts/storage/ClosureTypes.h
+++ b/includes/rts/storage/ClosureTypes.h
@@ -62,7 +62,7 @@
 #define UPDATE_FRAME	        38
 #define CATCH_FRAME	        39
 #define STOP_FRAME	        40
-#define CAF_BLACKHOLE		41
+#define BLOCKING_QUEUE		41
 #define BLACKHOLE	        42
 #define MVAR_CLEAN	        43
 #define MVAR_DIRTY	        44
@@ -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 */