[project @ 2005-03-27 13:41:13 by panne]

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

diff --git a/ghc/includes/ClosureTypes.h b/ghc/includes/ClosureTypes.h
index c384ded..243111e 100644 (file)
--- a/ghc/includes/ClosureTypes.h
+++ b/ghc/includes/ClosureTypes.h
@@ -1,5 +1,4 @@
 /* ----------------------------------------------------------------------------
- * $Id: ClosureTypes.h,v 1.18 2002/12/11 15:36:37 simonmar Exp $
  * 
  * (c) The GHC Team, 1998-1999
  *
@@ -66,9 +65,9 @@
 #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 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
@@ -79,6 +78,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 */