[project @ 2005-03-04 14:24:51 by simonmar]

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

diff --git a/ghc/rts/ClosureFlags.c b/ghc/rts/ClosureFlags.c
index abcab5a..28876ab 100644 (file)
--- a/ghc/rts/ClosureFlags.c
+++ b/ghc/rts/ClosureFlags.c
@@ -1,5 +1,4 @@
 /* -----------------------------------------------------------------------------
- * $Id: ClosureFlags.c,v 1.12 2002/04/19 12:23:11 simonmar Exp $
  *
  * (c) The GHC Team 1998-1999
  *
@@ -54,8 +53,9 @@ StgWord16 closure_flags[] = {
 /* THUNK_STATIC                = */ (     _BTM|    _STA|_THU|        _SRT       ),
 /* THUNK_SELECTOR      = */ (     _BTM|         _THU|        _SRT       ),
 /* BCO                 = */ (_HNF|     _NS                              ),
-/* AP_UPD              = */ (     _BTM|         _THU                    ),
+/* AP                  = */ (                   _THU                    ),
 /* PAP                 = */ (_HNF|     _NS                              ),
+/* AP_STACK            = */ (                   _THU                    ),
 /* IND                 = */ (          _NS|                        _IND ),
 /* IND_OLDGEN          = */ (          _NS|                        _IND ),
 /* IND_PERM            = */ (          _NS|                        _IND ),
@@ -67,10 +67,10 @@ StgWord16 closure_flags[] = {
 /* RET_BIG             = */ (                                 _SRT      ),
 /* RET_VEC_BIG         = */ (                                 _SRT      ),
 /* RET_DYN             = */ (                                 _SRT      ),
+/* RET_FUN             = */ ( 0                                         ),
 /* UPDATE_FRAME                = */ (     _BTM                                  ),
 /* CATCH_FRAME         = */ (     _BTM                                  ),
 /* STOP_FRAME          = */ (     _BTM                                  ),
-/* SEQ_FRAME           = */ (     _BTM                                  ),
 /* CAF_BLACKHOLE       = */ (     _BTM|_NS|              _UPT           ),
 /* BLACKHOLE           = */ (          _NS|              _UPT           ),
 /* BLACKHOLE_BQ                = */ (          _NS|         _MUT|_UPT           ),
@@ -91,5 +91,13 @@ StgWord16 closure_flags[] = {
 /* FETCH_ME_BQ          = */ (                 _NS|         _MUT|_UPT           ),
 /* RBH                  = */ (                 _NS|         _MUT|_UPT           ),
 /* EVACUATED           = */ ( 0                                         ),
-/* REMOTE_REF          = */ (_HNF|     _NS|              _UPT           )
+/* REMOTE_REF          = */ (_HNF|     _NS|              _UPT           ),
+/* TVAR_WAIT_QUEUE      = */ (          _NS|         _MUT|_UPT           ),
+/* TVAR                 = */ (_HNF|     _NS|         _MUT|_UPT           ), 
+/* TREC_CHUNK           = */ (          _NS|         _MUT|_UPT           ),
+/* TREC_HEADER          = */ (          _NS|         _MUT|_UPT           ),
+/* ATOMICALLY_FRAME     = */ (     _BTM                                  ),
+/* CATCH_RETRY_FRAME    = */ (     _BTM                                  ),
+/* CATCH_STM_FRAME      = */ (     _BTM                                  ),
+/* STACK               = */ (_HNF|     _NS|         _MUT                )
 };