[project @ 2002-01-29 06:15:03 by sof]

[ghc-hetmet.git] / ghc / rts / ClosureFlags.c

diff --git a/ghc/rts/ClosureFlags.c b/ghc/rts/ClosureFlags.c
index 4766917..314d5f5 100644 (file)
--- a/ghc/rts/ClosureFlags.c
+++ b/ghc/rts/ClosureFlags.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: ClosureFlags.c,v 1.8 2001/03/02 16:12:18 simonmar Exp $
+ * $Id: ClosureFlags.c,v 1.11 2001/08/14 13:40:09 sewardj Exp $
  *
  * (c) The GHC Team 1998-1999
  *
@@ -7,6 +7,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
+#include "PosixSource.h"
 #include "Rts.h"
 
 StgWord16 closure_flags[] = {
@@ -25,7 +26,7 @@ StgWord16 closure_flags[] = {
 
 /*                             0    1    2    3    4   5   6   7 */
 /*                          HNF  BTM   NS  STA  THU MUT UPT SRT */
-                                                                   
+
 [INVALID_OBJECT         ] = ( 0                                        ),
 [CONSTR                ] = (_HNF|     _NS                              ),
 [CONSTR_1_0            ] = (_HNF|     _NS                              ),
@@ -60,7 +61,7 @@ StgWord16 closure_flags[] = {
 [IND_PERM              ] = (          _NS                        |_IND ),
 [IND_OLDGEN_PERM       ] = (          _NS                        |_IND ),
 [IND_STATIC            ] = (          _NS|_STA                   |_IND ),
-[CAF_BLACKHOLE         ] = (     _BTM|_NS|         _MUT|_UPT           ),
+[CAF_BLACKHOLE         ] = (     _BTM|_NS|              _UPT           ),
 [RET_BCO               ] = (     _BTM                                  ),
 [RET_SMALL             ] = (     _BTM|                       _SRT      ),
 [RET_VEC_SMALL         ] = (     _BTM|                       _SRT      ),
@@ -71,15 +72,16 @@ StgWord16 closure_flags[] = {
 [CATCH_FRAME           ] = (     _BTM                                  ),
 [STOP_FRAME            ] = (     _BTM                                  ),
 [SEQ_FRAME             ] = (     _BTM                                  ),
-[BLACKHOLE             ] = (          _NS|         _MUT|_UPT           ),
+[BLACKHOLE             ] = (          _NS|              _UPT           ),
 [BLACKHOLE_BQ          ] = (          _NS|         _MUT|_UPT           ),
 [SE_BLACKHOLE          ] = (          _NS|              _UPT           ),
 [SE_CAF_BLACKHOLE      ] = (          _NS|              _UPT           ),
 [MVAR                  ] = (_HNF|     _NS|         _MUT|_UPT           ),
 [ARR_WORDS             ] = (_HNF|     _NS|              _UPT           ),
 [MUT_ARR_PTRS          ] = (_HNF|     _NS|         _MUT|_UPT           ),
-[MUT_ARR_PTRS_FROZEN   ] = (_HNF|     _NS|         _MUT|_UPT           ),
+[MUT_ARR_PTRS_FROZEN   ] = (_HNF|     _NS|              _UPT           ),
 [MUT_VAR               ] = (_HNF|     _NS|         _MUT|_UPT           ),
+[MUT_CONS              ] = (_HNF|     _NS|              _UPT           ),
 [WEAK                  ] = (_HNF|     _NS|              _UPT           ),
 [FOREIGN               ] = (_HNF|     _NS|              _UPT           ),
 [STABLE_NAME           ] = (_HNF|     _NS|              _UPT           ),
@@ -89,6 +91,7 @@ StgWord16 closure_flags[] = {
 [FETCH_ME_BQ           ] = (          _NS|         _MUT|_UPT           ),
 [RBH                   ] = (          _NS|         _MUT|_UPT           ),
 [EVACUATED             ] = ( 0                                         ),
+[REMOTE_REF            ] = (_HNF|     _NS|              _UPT           ),
 
 [N_CLOSURE_TYPES        ] = ( 0                                   )
 };