ghc/includes/StgMiscClosures.h

   1 /* -----------------------------------------------------------------------------
   2  * $Id: StgMiscClosures.h,v 1.11 1999/03/02 19:44:20 sof Exp $
   3  *
   4  * (c) The GHC Team, 1998-1999
   5  *
   6  * Entry code for various built-in closure types.
   7  *
   8  * ---------------------------------------------------------------------------*/
   9
  10 /* The naming scheme here follows the naming scheme for closure types
  11  * defined in InfoTables.h.  The actual info tables and entry code for
  12  * these objects can be found in StgMiscClosures.hc.
  13  */
  14
  15 /* entry code */
  16
  17 STGFUN(IND_entry);
  18 STGFUN(IND_STATIC_entry);
  19 STGFUN(IND_PERM_entry);
  20 STGFUN(IND_OLDGEN_entry);
  21 STGFUN(IND_OLDGEN_PERM_entry);
  22 STGFUN(CAF_UNENTERED_entry);
  23 STGFUN(CAF_ENTERED_entry);
  24 STGFUN(CAF_BLACKHOLE_entry);
  25 STGFUN(BLACKHOLE_entry);
  26 STGFUN(BLACKHOLE_BQ_entry);
  27 STGFUN(BCO_entry);
  28 STGFUN(EVACUATED_entry);
  29 STGFUN(FOREIGN_entry);
  30 STGFUN(WEAK_entry);
  31 STGFUN(NO_FINALIZER_entry);
  32 STGFUN(DEAD_WEAK_entry);
  33 STGFUN(STABLE_NAME_entry);
  34 STGFUN(TSO_entry);
  35 STGFUN(FULL_MVAR_entry);
  36 STGFUN(EMPTY_MVAR_entry);
  37 STGFUN(ARR_WORDS_entry);
  38 STGFUN(MUT_ARR_PTRS_entry);
  39 STGFUN(MUT_ARR_PTRS_FROZEN_entry);
  40 STGFUN(MUT_VAR_entry);
  41 STGFUN(END_TSO_QUEUE_entry);
  42 STGFUN(MUT_CONS_entry);
  43 STGFUN(END_MUT_LIST_entry);
  44 STGFUN(dummy_ret_entry);
  45
  46 /* info tables */
  47
  48 extern DLL_IMPORT_RTS const StgInfoTable IND_info;
  49 extern DLL_IMPORT_RTS const StgInfoTable IND_STATIC_info;
  50 extern DLL_IMPORT_RTS const StgInfoTable IND_PERM_info;
  51 extern DLL_IMPORT_RTS const StgInfoTable IND_OLDGEN_info;
  52 extern DLL_IMPORT_RTS const StgInfoTable IND_OLDGEN_PERM_info;
  53 extern DLL_IMPORT_RTS const StgInfoTable CAF_UNENTERED_info;
  54 extern DLL_IMPORT_RTS const StgInfoTable CAF_ENTERED_info;
  55 extern DLL_IMPORT_RTS const StgInfoTable CAF_BLACKHOLE_info;
  56 extern DLL_IMPORT_RTS const StgInfoTable BLACKHOLE_info;
  57 extern DLL_IMPORT_RTS const StgInfoTable BLACKHOLE_BQ_info;
  58 extern DLL_IMPORT_RTS const StgInfoTable BCO_info;
  59 extern DLL_IMPORT_RTS const StgInfoTable EVACUATED_info;
  60 extern DLL_IMPORT_RTS const StgInfoTable FOREIGN_info;
  61 extern DLL_IMPORT_RTS const StgInfoTable WEAK_info;
  62 extern DLL_IMPORT_RTS const StgInfoTable DEAD_WEAK_info;
  63 extern DLL_IMPORT_RTS const StgInfoTable STABLE_NAME_info;
  64 extern DLL_IMPORT_RTS const StgInfoTable FULL_MVAR_info;
  65 extern DLL_IMPORT_RTS const StgInfoTable EMPTY_MVAR_info;
  66 extern DLL_IMPORT_RTS const StgInfoTable TSO_info;
  67 extern DLL_IMPORT_RTS const StgInfoTable ARR_WORDS_info;
  68 extern DLL_IMPORT_RTS const StgInfoTable MUT_ARR_WORDS_info;
  69 extern DLL_IMPORT_RTS const StgInfoTable MUT_ARR_PTRS_info;
  70 extern DLL_IMPORT_RTS const StgInfoTable MUT_ARR_PTRS_FROZEN_info;
  71 extern DLL_IMPORT_RTS const StgInfoTable MUT_VAR_info;
  72 extern DLL_IMPORT_RTS const StgInfoTable END_TSO_QUEUE_info;
  73 extern DLL_IMPORT_RTS const StgInfoTable MUT_CONS_info;
  74 extern DLL_IMPORT_RTS const StgInfoTable END_MUT_LIST_info;
  75 extern DLL_IMPORT_RTS const StgInfoTable catch_info;
  76 extern DLL_IMPORT_RTS const StgInfoTable seq_info;
  77 extern DLL_IMPORT_RTS const StgInfoTable dummy_ret_info;
  78
  79 #ifdef INTERPRETER
  80
  81 EXTFUN(Hugs_CONSTR_entry);
  82 extern const StgInfoTable ret_bco_info;
  83
  84 #endif /* INTERPRETER */
  85
  86 /* closures */
  87
  88 extern DLL_IMPORT_DATA StgClosure END_TSO_QUEUE_closure;
  89 extern DLL_IMPORT_DATA StgClosure END_MUT_LIST_closure;
  90 extern DLL_IMPORT_DATA StgClosure NO_FINALIZER_closure;
  91 extern DLL_IMPORT_DATA StgClosure dummy_ret_closure;
  92
  93 extern DLL_IMPORT_DATA StgIntCharlikeClosure CHARLIKE_closure[];
  94 extern DLL_IMPORT_DATA StgIntCharlikeClosure INTLIKE_closure[];
  95
  96 /* standard entry points */
  97
  98 extern StgFun stg_error_entry;
  99
 100 /* standard selector thunks */
 101
 102 #ifdef COMPILING_RTS
 103 #define EI__ EI_
 104 #else
 105 #define EI__ EDI_
 106 #endif
 107
 108 EI__ __sel_0_upd_info;
 109 EI__ __sel_1_upd_info;
 110 EI__ __sel_2_upd_info;
 111 EI__ __sel_3_upd_info;
 112 EI__ __sel_4_upd_info;
 113 EI__ __sel_5_upd_info;
 114 EI__ __sel_6_upd_info;
 115 EI__ __sel_7_upd_info;
 116 EI__ __sel_8_upd_info;
 117 EI__ __sel_8_upd_info;
 118 EI__ __sel_9_upd_info;
 119 EI__ __sel_10_upd_info;
 120 EI__ __sel_11_upd_info;
 121 EI__ __sel_12_upd_info;
 122 EI__ __sel_13_upd_info;
 123 EI__ __sel_14_upd_info;
 124 EI__ __sel_15_upd_info;
 125
 126 EI__ __sel_0_noupd_info;
 127 EI__ __sel_1_noupd_info;
 128 EI__ __sel_2_noupd_info;
 129 EI__ __sel_3_noupd_info;
 130 EI__ __sel_4_noupd_info;
 131 EI__ __sel_5_noupd_info;
 132 EI__ __sel_6_noupd_info;
 133 EI__ __sel_7_noupd_info;
 134 EI__ __sel_8_noupd_info;
 135 EI__ __sel_9_noupd_info;
 136 EI__ __sel_10_noupd_info;
 137 EI__ __sel_11_noupd_info;
 138 EI__ __sel_12_noupd_info;
 139 EI__ __sel_13_noupd_info;
 140 EI__ __sel_14_noupd_info;
 141 EI__ __sel_15_noupd_info;
 142
 143 /* standard ap thunks */
 144
 145 EI__ __ap_1_upd_info;
 146 EI__ __ap_2_upd_info;
 147 EI__ __ap_3_upd_info;
 148 EI__ __ap_4_upd_info;
 149 EI__ __ap_5_upd_info;
 150 EI__ __ap_6_upd_info;
 151 EI__ __ap_7_upd_info;
 152 EI__ __ap_8_upd_info;
 153