X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FClosureFlags.c;h=89e98e4728f600a78659d8490f880eb250bd9dd9;hb=d811abf65c8a370f490e104bef8224f1998e2325;hp=a7fdb0b699f8c9ee7590339bb2fcff7e0964e512;hpb=47ef1f6c7dbb2c659bf2eae823258d50c506af86;p=ghc-hetmet.git

diff --git a/ghc/rts/ClosureFlags.c b/ghc/rts/ClosureFlags.c
index a7fdb0b..89e98e4 100644
--- a/ghc/rts/ClosureFlags.c
+++ b/ghc/rts/ClosureFlags.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: ClosureFlags.c,v 1.5 2000/01/12 12:39:20 simonmar Exp $
+ * $Id: ClosureFlags.c,v 1.6 2000/01/13 14:34:02 hwloidl Exp $
  *
  * (c) The GHC Team 1998-1999
  *
@@ -23,6 +23,7 @@ StgWord16 closure_flags[] = {
  *  to thunks.)
  */
 
+/*                             0    1    2    3    4   5   6   7 */
 /*			     HNF  BTM   NS  STA  THU MUT UPT SRT */
 				                                    
 /* INVALID_OBJECT       */ ( 0                                   ),
@@ -84,8 +85,14 @@ StgWord16 closure_flags[] = {
 /* WEAK		   	*/ (_HNF|     _NS|              _UPT     ),
 /* FOREIGN		*/ (_HNF|     _NS|              _UPT     ),
 /* STABLE_NAME	   	*/ (_HNF|     _NS|              _UPT     ),
+
 /* TSO                  */ (_HNF|     _NS|         _MUT|_UPT     ),
-/* BLOCKED_FETCH	*/ (_HNF|     _NS                        ),
-/* FETCH_ME		*/ (_HNF|     _NS                        ),
-/* EVACUATED		*/ ( 0                                   )
+/* BLOCKED_FETCH	*/ (_HNF|     _NS|         _MUT|_UPT     ),
+/* FETCH_ME		*/ (_HNF|     _NS|         _MUT|_UPT     ),
+/* FETCH_ME_BQ          */ ( 	      _NS|         _MUT|_UPT     ),
+/* RBH                  */ ( 	      _NS|         _MUT|_UPT     ),
+
+/* EVACUATED		*/ ( 0                                   ),
+
+/* N_CLOSURE_TYPES      */ ( 0                                   )
 };