X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FClosureFlags.c;h=28876abdc3f4541c4df666f30c540bd2bac059a2;hb=1d88ebeb16dccc499fe670ec592d1f641d609846;hp=6df823c7feaaa90b9b278f9d13170def4965a4bb;hpb=0bffc410964e1688ad80d277d53400659e697ab5;p=ghc-hetmet.git

diff --git a/ghc/rts/ClosureFlags.c b/ghc/rts/ClosureFlags.c
index 6df823c..28876ab 100644
--- a/ghc/rts/ClosureFlags.c
+++ b/ghc/rts/ClosureFlags.c
@@ -1,5 +1,4 @@
 /* -----------------------------------------------------------------------------
- * $Id: ClosureFlags.c,v 1.13 2002/12/11 15:36:41 simonmar Exp $
  *
  * (c) The GHC Team 1998-1999
  *
@@ -93,5 +92,12 @@ StgWord16 closure_flags[] = {
 /* RBH                  = */ ( 	        _NS|         _MUT|_UPT           ),
 /* EVACUATED		= */ ( 0                                         ),
 /* 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                )
 };