ghc/rts/ClosureFlags.c

   1 /* -----------------------------------------------------------------------------
   2  * $Id: ClosureFlags.c,v 1.7 2001/01/29 17:23:40 simonmar Exp $
   3  *
   4  * (c) The GHC Team 1998-1999
   5  *
   6  * Closure type flags
   7  *
   8  * ---------------------------------------------------------------------------*/
   9
  10 #include "Rts.h"
  11
  12 StgWord16 closure_flags[] = {
  13
  14 /*
  15  * These *must* be in the same order as the closure types in
  16  * ClosureTypes.h.
  17  */
  18
  19 /* ToDo: some of these flags seem to be duplicated.
  20  *       - NS is the same as HNF, and the negation of THU
  21  * (however, we set NS for indirections, which is probably the
  22  *  right thing to do, since we never get indirections pointing
  23  *  to thunks.)
  24  */
  25
  26 /*                             0    1    2    3    4   5   6   7 */
  27 /*                           HNF  BTM   NS  STA  THU MUT UPT SRT */
  28
  29 [INVALID_OBJECT         ] = ( 0                                   ),
  30 [CONSTR                 ] = (_HNF|     _NS                        ),
  31 [CONSTR_1_0             ] = (_HNF|     _NS                        ),
  32 [CONSTR_0_1             ] = (_HNF|     _NS                        ),
  33 [CONSTR_2_0             ] = (_HNF|     _NS                        ),
  34 [CONSTR_1_1             ] = (_HNF|     _NS                        ),
  35 [CONSTR_0_2             ] = (_HNF|     _NS                        ),
  36 [CONSTR_INTLIKE         ] = (_HNF|     _NS|_STA                   ),
  37 [CONSTR_CHARLIKE        ] = (_HNF|     _NS|_STA                   ),
  38 [CONSTR_STATIC          ] = (_HNF|     _NS|_STA                   ),
  39 [CONSTR_NOCAF_STATIC    ] = (_HNF|     _NS|_STA                   ),
  40 [FUN                    ] = (_HNF|     _NS|                  _SRT ),
  41 [FUN_1_0                ] = (_HNF|     _NS                        ),
  42 [FUN_0_1                ] = (_HNF|     _NS                        ),
  43 [FUN_2_0                ] = (_HNF|     _NS                        ),
  44 [FUN_1_1                ] = (_HNF|     _NS                        ),
  45 [FUN_0_2                ] = (_HNF|     _NS                        ),
  46 [FUN_STATIC             ] = (_HNF|     _NS|_STA|             _SRT ),
  47 [THUNK                  ] = (     _BTM|         _THU|        _SRT ),
  48 [THUNK_1_0              ] = (     _BTM|         _THU|        _SRT ),
  49 [THUNK_0_1              ] = (     _BTM|         _THU|        _SRT ),
  50 [THUNK_2_0              ] = (     _BTM|         _THU|        _SRT ),
  51 [THUNK_1_1              ] = (     _BTM|         _THU|        _SRT ),
  52 [THUNK_0_2              ] = (     _BTM|         _THU|        _SRT ),
  53 [THUNK_STATIC           ] = (     _BTM|    _STA|_THU|        _SRT ),
  54 [THUNK_SELECTOR         ] = (     _BTM|         _THU|        _SRT ),
  55 [BCO                    ] = (_HNF|     _NS                        ),
  56 [AP_UPD                 ] = (     _BTM|         _THU              ),
  57 [PAP                    ] = (_HNF|     _NS                        ),
  58 [IND                    ] = (          _NS                        ),
  59 [IND_OLDGEN             ] = (          _NS                        ),
  60 [IND_PERM               ] = (          _NS                        ),
  61 [IND_OLDGEN_PERM        ] = (          _NS                        ),
  62 [IND_STATIC             ] = (          _NS|_STA                   ),
  63 [CAF_BLACKHOLE          ] = (     _BTM|_NS|         _MUT|_UPT     ),
  64 [RET_BCO                ] = (     _BTM                            ),
  65 [RET_SMALL              ] = (     _BTM|                       _SRT),
  66 [RET_VEC_SMALL          ] = (     _BTM|                       _SRT),
  67 [RET_BIG                ] = (                                 _SRT),
  68 [RET_VEC_BIG            ] = (                                 _SRT),
  69 [RET_DYN                ] = (                                 _SRT),
  70 [UPDATE_FRAME           ] = (     _BTM                            ),
  71 [CATCH_FRAME            ] = (     _BTM                            ),
  72 [STOP_FRAME             ] = (     _BTM                            ),
  73 [SEQ_FRAME              ] = (     _BTM                            ),
  74 [BLACKHOLE              ] = (          _NS|         _MUT|_UPT     ),
  75 [BLACKHOLE_BQ           ] = (          _NS|         _MUT|_UPT     ),
  76 [SE_BLACKHOLE           ] = (          _NS|              _UPT     ),
  77 [SE_CAF_BLACKHOLE       ] = (          _NS|              _UPT     ),
  78 [MVAR                   ] = (_HNF|     _NS|         _MUT|_UPT     ),
  79 [ARR_WORDS              ] = (_HNF|     _NS|              _UPT     ),
  80 [MUT_ARR_PTRS           ] = (_HNF|     _NS|         _MUT|_UPT     ),
  81 [MUT_ARR_PTRS_FROZEN    ] = (_HNF|     _NS|         _MUT|_UPT     ),
  82 [MUT_VAR                ] = (_HNF|     _NS|         _MUT|_UPT     ),
  83 [WEAK                   ] = (_HNF|     _NS|              _UPT     ),
  84 [FOREIGN                ] = (_HNF|     _NS|              _UPT     ),
  85 [STABLE_NAME            ] = (_HNF|     _NS|              _UPT     ),
  86 [TSO                    ] = (_HNF|     _NS|         _MUT|_UPT     ),
  87 [BLOCKED_FETCH          ] = (_HNF|     _NS|         _MUT|_UPT     ),
  88 [FETCH_ME               ] = (_HNF|     _NS|         _MUT|_UPT     ),
  89 [FETCH_ME_BQ            ] = (          _NS|         _MUT|_UPT     ),
  90 [RBH                    ] = (          _NS|         _MUT|_UPT     ),
  91 [EVACUATED              ] = ( 0                                   ),
  92
  93 [N_CLOSURE_TYPES        ] = ( 0                                   )
  94 };