[project @ 1999-01-23 17:51:27 by sof]

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

diff --git a/ghc/includes/ClosureTypes.h b/ghc/includes/ClosureTypes.h
index 495ca27..d392b92 100644 (file)
--- a/ghc/includes/ClosureTypes.h
+++ b/ghc/includes/ClosureTypes.h
@@ -1,5 +1,5 @@
 /* ----------------------------------------------------------------------------
- * $Id: ClosureTypes.h,v 1.2 1998/12/02 13:20:58 simonm Exp $
+ * $Id: ClosureTypes.h,v 1.5 1999/01/15 17:57:03 simonm Exp $
  * 
  * Closure Type Constants
  *
@@ -12,37 +12,29 @@
 
 /* Object tag 0 raises an internal error */
 #define INVALID_OBJECT          0
-
 #define CONSTR                  1
 /* #define CONSTR_p_np */       
 #define CONSTR_INTLIKE         2
 #define CONSTR_CHARLIKE                3
 #define CONSTR_STATIC          4
 #define CONSTR_NOCAF_STATIC     5
-
 #define FUN                    6
 #define FUN_STATIC             7
-
 #define THUNK                  8
 /* #define THUNK_p_np */        
 #define THUNK_STATIC           9
 #define THUNK_SELECTOR         10
-
 #define BCO                    11
-
 #define AP_UPD                 12
 #define PAP                    13
-
 #define IND                    14
 #define IND_OLDGEN             15
 #define IND_PERM               16
 #define IND_OLDGEN_PERM                17
 #define IND_STATIC             18
-
 #define CAF_UNENTERED           19
 #define CAF_ENTERED            20
 #define CAF_BLACKHOLE          21
-
 #define RET_BCO                 22
 #define RET_SMALL              23
 #define RET_VEC_SMALL          24
@@ -53,25 +45,19 @@
 #define CATCH_FRAME            29
 #define STOP_FRAME             30
 #define SEQ_FRAME              31
-
 #define BLACKHOLE              32
-#define MVAR                   33
-
-#define ARR_WORDS              34
-#define ARR_PTRS               35
-
+#define BLACKHOLE_BQ           33
+#define MVAR                   34
+#define ARR_WORDS              35
 #define MUT_ARR_WORDS          36
 #define MUT_ARR_PTRS           37
 #define MUT_ARR_PTRS_FROZEN     38
-#define MUT_VAR                        39
-
+#define MUT_VAR                        49
 #define WEAK                   40
 #define FOREIGN                        41
-
 #define TSO                    42
 #define BLOCKED_FETCH          43
 #define FETCH_ME                44
-
 #define EVACUATED               45
 
 #endif CLOSURETYPES_H