includes/stg/MiscClosures.h

   1 /* ----------------------------------------------------------------------------
   2  *
   3  * (c) The GHC Team, 1998-2009
   4  *
   5  * Declarations for various symbols exported by the RTS.
   6  *
   7  * ToDo: many of the symbols in here don't need to be exported, but
   8  * our Cmm code generator doesn't know how to generate local symbols
   9  * for the RTS bits (it assumes all RTS symbols are external).
  10  *
  11  * See wiki:Commentary/Compiler/Backends/PprC#Prototypes
  12  *
  13  * Do not #include this file directly: #include "Rts.h" instead.
  14  *
  15  * To understand the structure of the RTS headers, see the wiki:
  16  *   http://hackage.haskell.org/trac/ghc/wiki/Commentary/SourceTree/Includes
  17  *
  18  * --------------------------------------------------------------------------*/
  19
  20 #ifndef STGMISCCLOSURES_H
  21 #define STGMISCCLOSURES_H
  22
  23 #if IN_STG_CODE
  24 #  define RTS_RET_INFO(i)   extern W_(i)[]
  25 #  define RTS_FUN_INFO(i)   extern W_(i)[]
  26 #  define RTS_THUNK_INFO(i) extern W_(i)[]
  27 #  define RTS_INFO(i)       extern W_(i)[]
  28 #  define RTS_CLOSURE(i)    extern W_(i)[]
  29 #  define RTS_FUN(f)        extern DLL_IMPORT_RTS StgFunPtr f(void)
  30 #else
  31 #  define RTS_RET_INFO(i)   extern DLL_IMPORT_RTS const StgRetInfoTable i
  32 #  define RTS_FUN_INFO(i)   extern DLL_IMPORT_RTS const StgFunInfoTable i
  33 #  define RTS_THUNK_INFO(i) extern DLL_IMPORT_RTS const StgThunkInfoTable i
  34 #  define RTS_INFO(i)       extern DLL_IMPORT_RTS const StgInfoTable i
  35 #  define RTS_CLOSURE(i)    extern DLL_IMPORT_RTS StgClosure i
  36 #  define RTS_FUN(f)        extern DLL_IMPORT_RTS StgFunPtr f(void)
  37 #endif
  38
  39 #ifdef TABLES_NEXT_TO_CODE
  40 #  define RTS_ENTRY(f)    /* nothing */
  41 #else
  42 #  define RTS_ENTRY(f)    RTS_FUN(f)
  43 #endif
  44
  45 /* Stack frames */
  46 RTS_RET_INFO(stg_upd_frame_info);
  47 RTS_RET_INFO(stg_marked_upd_frame_info);
  48 RTS_RET_INFO(stg_noupd_frame_info);
  49 RTS_RET_INFO(stg_catch_frame_info);
  50 RTS_RET_INFO(stg_catch_retry_frame_info);
  51 RTS_RET_INFO(stg_atomically_frame_info);
  52 RTS_RET_INFO(stg_atomically_waiting_frame_info);
  53 RTS_RET_INFO(stg_catch_stm_frame_info);
  54 RTS_RET_INFO(stg_unblockAsyncExceptionszh_ret_info);
  55
  56 RTS_ENTRY(stg_upd_frame_ret);
  57 RTS_ENTRY(stg_marked_upd_frame_ret);
  58
  59 // RTS_FUN(stg_interp_constr_entry);
  60 //
  61 // This is referenced using the FFI in the compiler (ByteCodeItbls),
  62 // so we can't give it the correct type here because the prototypes
  63 // would clash (FFI references are always declared with type StgWord[]
  64 // in the generated C code).
  65
  66 /* Magic glue code for when compiled code returns a value in R1/F1/D1
  67    or a VoidRep to the interpreter. */
  68 RTS_RET_INFO(stg_ctoi_R1p_info);
  69 RTS_RET_INFO(stg_ctoi_R1unpt_info);
  70 RTS_RET_INFO(stg_ctoi_R1n_info);
  71 RTS_RET_INFO(stg_ctoi_F1_info);
  72 RTS_RET_INFO(stg_ctoi_D1_info);
  73 RTS_RET_INFO(stg_ctoi_L1_info);
  74 RTS_RET_INFO(stg_ctoi_V_info);
  75
  76 RTS_ENTRY(stg_ctoi_R1p_ret);
  77 RTS_ENTRY(stg_ctoi_R1unpt_ret);
  78 RTS_ENTRY(stg_ctoi_R1n_ret);
  79 RTS_ENTRY(stg_ctoi_F1_ret);
  80 RTS_ENTRY(stg_ctoi_D1_ret);
  81 RTS_ENTRY(stg_ctoi_L1_ret);
  82 RTS_ENTRY(stg_ctoi_V_ret);
  83
  84 RTS_RET_INFO(stg_apply_interp_info);
  85 RTS_ENTRY(stg_apply_interp_ret);
  86
  87 RTS_INFO(stg_IND_info);
  88 RTS_INFO(stg_IND_direct_info);
  89 RTS_INFO(stg_IND_STATIC_info);
  90 RTS_INFO(stg_IND_PERM_info);
  91 RTS_INFO(stg_IND_OLDGEN_info);
  92 RTS_INFO(stg_IND_OLDGEN_PERM_info);
  93 RTS_INFO(stg_CAF_UNENTERED_info);
  94 RTS_INFO(stg_CAF_ENTERED_info);
  95 RTS_INFO(stg_WHITEHOLE_info);
  96 RTS_INFO(stg_BLACKHOLE_info);
  97 RTS_INFO(__stg_EAGER_BLACKHOLE_info);
  98 RTS_INFO(stg_CAF_BLACKHOLE_info);
  99
 100 RTS_FUN_INFO(stg_BCO_info);
 101 RTS_INFO(stg_EVACUATED_info);
 102 RTS_INFO(stg_WEAK_info);
 103 RTS_INFO(stg_DEAD_WEAK_info);
 104 RTS_INFO(stg_STABLE_NAME_info);
 105 RTS_INFO(stg_MVAR_CLEAN_info);
 106 RTS_INFO(stg_MVAR_DIRTY_info);
 107 RTS_INFO(stg_TSO_info);
 108 RTS_INFO(stg_ARR_WORDS_info);
 109 RTS_INFO(stg_MUT_ARR_WORDS_info);
 110 RTS_INFO(stg_MUT_ARR_PTRS_CLEAN_info);
 111 RTS_INFO(stg_MUT_ARR_PTRS_DIRTY_info);
 112 RTS_INFO(stg_MUT_ARR_PTRS_FROZEN_info);
 113 RTS_INFO(stg_MUT_ARR_PTRS_FROZEN0_info);
 114 RTS_INFO(stg_MUT_VAR_CLEAN_info);
 115 RTS_INFO(stg_MUT_VAR_DIRTY_info);
 116 RTS_INFO(stg_END_TSO_QUEUE_info);
 117 RTS_INFO(stg_MSG_WAKEUP_info);
 118 RTS_INFO(stg_MSG_THROWTO_info);
 119 RTS_INFO(stg_MUT_CONS_info);
 120 RTS_INFO(stg_catch_info);
 121 RTS_INFO(stg_PAP_info);
 122 RTS_INFO(stg_AP_info);
 123 RTS_INFO(stg_AP_NOUPD_info);
 124 RTS_INFO(stg_AP_STACK_info);
 125 RTS_INFO(stg_dummy_ret_info);
 126 RTS_INFO(stg_raise_info);
 127 RTS_INFO(stg_raise_ret_info);
 128 RTS_INFO(stg_TVAR_WATCH_QUEUE_info);
 129 RTS_INFO(stg_INVARIANT_CHECK_QUEUE_info);
 130 RTS_INFO(stg_ATOMIC_INVARIANT_info);
 131 RTS_INFO(stg_TVAR_info);
 132 RTS_INFO(stg_TREC_CHUNK_info);
 133 RTS_INFO(stg_TREC_HEADER_info);
 134 RTS_INFO(stg_END_STM_WATCH_QUEUE_info);
 135 RTS_INFO(stg_END_INVARIANT_CHECK_QUEUE_info);
 136 RTS_INFO(stg_END_STM_CHUNK_LIST_info);
 137 RTS_INFO(stg_NO_TREC_info);
 138
 139 RTS_ENTRY(stg_IND_entry);
 140 RTS_ENTRY(stg_IND_direct_entry);
 141 RTS_ENTRY(stg_IND_STATIC_entry);
 142 RTS_ENTRY(stg_IND_PERM_entry);
 143 RTS_ENTRY(stg_IND_OLDGEN_entry);
 144 RTS_ENTRY(stg_IND_OLDGEN_PERM_entry);
 145 RTS_ENTRY(stg_CAF_UNENTERED_entry);
 146 RTS_ENTRY(stg_CAF_ENTERED_entry);
 147 RTS_ENTRY(stg_WHITEHOLE_entry);
 148 RTS_ENTRY(stg_BLACKHOLE_entry);
 149 RTS_ENTRY(__stg_EAGER_BLACKHOLE_entry);
 150 RTS_ENTRY(stg_CAF_BLACKHOLE_entry);
 151 RTS_ENTRY(stg_BCO_entry);
 152 RTS_ENTRY(stg_EVACUATED_entry);
 153 RTS_ENTRY(stg_WEAK_entry);
 154 RTS_ENTRY(stg_DEAD_WEAK_entry);
 155 RTS_ENTRY(stg_STABLE_NAME_entry);
 156 RTS_ENTRY(stg_FULL_MVAR_entry);
 157 RTS_ENTRY(stg_EMPTY_MVAR_entry);
 158 RTS_ENTRY(stg_TSO_entry);
 159 RTS_ENTRY(stg_ARR_WORDS_entry);
 160 RTS_ENTRY(stg_MUT_ARR_WORDS_entry);
 161 RTS_ENTRY(stg_MUT_ARR_PTRS_CLEAN_entry);
 162 RTS_ENTRY(stg_MUT_ARR_PTRS_DIRTY_entry);
 163 RTS_ENTRY(stg_MUT_ARR_PTRS_FROZEN_entry);
 164 RTS_ENTRY(stg_MUT_ARR_PTRS_FROZEN0_entry);
 165 RTS_ENTRY(stg_MUT_VAR_CLEAN_entry);
 166 RTS_ENTRY(stg_MUT_VAR_DIRTY_entry);
 167 RTS_ENTRY(stg_END_TSO_QUEUE_entry);
 168 RTS_ENTRY(stg_MSG_WAKEUP_entry);
 169 RTS_ENTRY(stg_MSG_THROWTO_entry);
 170 RTS_ENTRY(stg_MUT_CONS_entry);
 171 RTS_ENTRY(stg_catch_entry);
 172 RTS_ENTRY(stg_PAP_entry);
 173 RTS_ENTRY(stg_AP_entry);
 174 RTS_ENTRY(stg_AP_NOUPD_entry);
 175 RTS_ENTRY(stg_AP_STACK_entry);
 176 RTS_ENTRY(stg_dummy_ret_entry);
 177 RTS_ENTRY(stg_raise_entry);
 178 RTS_ENTRY(stg_raise_ret_ret);
 179 RTS_ENTRY(stg_END_STM_WATCH_QUEUE_entry);
 180 RTS_ENTRY(stg_END_INVARIANT_CHECK_QUEUE_entry);
 181 RTS_ENTRY(stg_END_STM_CHUNK_LIST_entry);
 182 RTS_ENTRY(stg_NO_TREC_entry);
 183 RTS_ENTRY(stg_TVAR_entry);
 184 RTS_ENTRY(stg_TVAR_WATCH_QUEUE_entry);
 185 RTS_ENTRY(stg_INVARIANT_CHECK_QUEUE_entry);
 186 RTS_ENTRY(stg_ATOMIC_INVARIANT_entry);
 187 RTS_ENTRY(stg_TREC_CHUNK_entry);
 188 RTS_ENTRY(stg_TREC_HEADER_entry);
 189
 190
 191 RTS_ENTRY(stg_unblockAsyncExceptionszh_ret_ret);
 192 RTS_ENTRY(stg_blockAsyncExceptionszh_ret_ret);
 193 RTS_ENTRY(stg_catch_frame_ret);
 194 RTS_ENTRY(stg_catch_retry_frame_ret);
 195 RTS_ENTRY(stg_atomically_frame_ret);
 196 RTS_ENTRY(stg_atomically_waiting_frame_ret);
 197 RTS_ENTRY(stg_catch_stm_frame_ret);
 198
 199 /* closures */
 200
 201 RTS_CLOSURE(stg_END_TSO_QUEUE_closure);
 202 RTS_CLOSURE(stg_NO_FINALIZER_closure);
 203 RTS_CLOSURE(stg_dummy_ret_closure);
 204 RTS_CLOSURE(stg_forceIO_closure);
 205
 206 RTS_CLOSURE(stg_END_STM_WATCH_QUEUE_closure);
 207 RTS_CLOSURE(stg_END_INVARIANT_CHECK_QUEUE_closure);
 208 RTS_CLOSURE(stg_END_STM_CHUNK_LIST_closure);
 209 RTS_CLOSURE(stg_NO_TREC_closure);
 210
 211 RTS_ENTRY(stg_NO_FINALIZER_entry);
 212
 213 #if IN_STG_CODE
 214 extern DLL_IMPORT_RTS StgWordArray stg_CHARLIKE_closure;
 215 extern DLL_IMPORT_RTS StgWordArray stg_INTLIKE_closure;
 216 #else
 217 extern DLL_IMPORT_RTS StgIntCharlikeClosure stg_CHARLIKE_closure[];
 218 extern DLL_IMPORT_RTS StgIntCharlikeClosure stg_INTLIKE_closure[];
 219 #endif
 220
 221 /* StgStartup */
 222
 223 RTS_RET_INFO(stg_forceIO_info);
 224 RTS_ENTRY(stg_forceIO_ret);
 225
 226 RTS_RET_INFO(stg_noforceIO_info);
 227 RTS_ENTRY(stg_noforceIO_ret);
 228
 229 /* standard entry points */
 230
 231 /* standard selector thunks */
 232
 233 RTS_ENTRY(stg_sel_ret_0_upd_ret);
 234 RTS_ENTRY(stg_sel_ret_1_upd_ret);
 235 RTS_ENTRY(stg_sel_ret_2_upd_ret);
 236 RTS_ENTRY(stg_sel_ret_3_upd_ret);
 237 RTS_ENTRY(stg_sel_ret_4_upd_ret);
 238 RTS_ENTRY(stg_sel_ret_5_upd_ret);
 239 RTS_ENTRY(stg_sel_ret_6_upd_ret);
 240 RTS_ENTRY(stg_sel_ret_7_upd_ret);
 241 RTS_ENTRY(stg_sel_ret_8_upd_ret);
 242 RTS_ENTRY(stg_sel_ret_9_upd_ret);
 243 RTS_ENTRY(stg_sel_ret_10_upd_ret);
 244 RTS_ENTRY(stg_sel_ret_11_upd_ret);
 245 RTS_ENTRY(stg_sel_ret_12_upd_ret);
 246 RTS_ENTRY(stg_sel_ret_13_upd_ret);
 247 RTS_ENTRY(stg_sel_ret_14_upd_ret);
 248 RTS_ENTRY(stg_sel_ret_15_upd_ret);
 249
 250 RTS_INFO(stg_sel_0_upd_info);
 251 RTS_INFO(stg_sel_1_upd_info);
 252 RTS_INFO(stg_sel_2_upd_info);
 253 RTS_INFO(stg_sel_3_upd_info);
 254 RTS_INFO(stg_sel_4_upd_info);
 255 RTS_INFO(stg_sel_5_upd_info);
 256 RTS_INFO(stg_sel_6_upd_info);
 257 RTS_INFO(stg_sel_7_upd_info);
 258 RTS_INFO(stg_sel_8_upd_info);
 259 RTS_INFO(stg_sel_9_upd_info);
 260 RTS_INFO(stg_sel_10_upd_info);
 261 RTS_INFO(stg_sel_11_upd_info);
 262 RTS_INFO(stg_sel_12_upd_info);
 263 RTS_INFO(stg_sel_13_upd_info);
 264 RTS_INFO(stg_sel_14_upd_info);
 265 RTS_INFO(stg_sel_15_upd_info);
 266
 267 RTS_ENTRY(stg_sel_0_upd_entry);
 268 RTS_ENTRY(stg_sel_1_upd_entry);
 269 RTS_ENTRY(stg_sel_2_upd_entry);
 270 RTS_ENTRY(stg_sel_3_upd_entry);
 271 RTS_ENTRY(stg_sel_4_upd_entry);
 272 RTS_ENTRY(stg_sel_5_upd_entry);
 273 RTS_ENTRY(stg_sel_6_upd_entry);
 274 RTS_ENTRY(stg_sel_7_upd_entry);
 275 RTS_ENTRY(stg_sel_8_upd_entry);
 276 RTS_ENTRY(stg_sel_9_upd_entry);
 277 RTS_ENTRY(stg_sel_10_upd_entry);
 278 RTS_ENTRY(stg_sel_11_upd_entry);
 279 RTS_ENTRY(stg_sel_12_upd_entry);
 280 RTS_ENTRY(stg_sel_13_upd_entry);
 281 RTS_ENTRY(stg_sel_14_upd_entry);
 282 RTS_ENTRY(stg_sel_15_upd_entry);
 283
 284 RTS_ENTRY(stg_sel_ret_0_noupd_ret);
 285 RTS_ENTRY(stg_sel_ret_1_noupd_ret);
 286 RTS_ENTRY(stg_sel_ret_2_noupd_ret);
 287 RTS_ENTRY(stg_sel_ret_3_noupd_ret);
 288 RTS_ENTRY(stg_sel_ret_4_noupd_ret);
 289 RTS_ENTRY(stg_sel_ret_5_noupd_ret);
 290 RTS_ENTRY(stg_sel_ret_6_noupd_ret);
 291 RTS_ENTRY(stg_sel_ret_7_noupd_ret);
 292 RTS_ENTRY(stg_sel_ret_8_noupd_ret);
 293 RTS_ENTRY(stg_sel_ret_9_noupd_ret);
 294 RTS_ENTRY(stg_sel_ret_10_noupd_ret);
 295 RTS_ENTRY(stg_sel_ret_11_noupd_ret);
 296 RTS_ENTRY(stg_sel_ret_12_noupd_ret);
 297 RTS_ENTRY(stg_sel_ret_13_noupd_ret);
 298 RTS_ENTRY(stg_sel_ret_14_noupd_ret);
 299 RTS_ENTRY(stg_sel_ret_15_noupd_ret);
 300
 301 RTS_INFO(stg_sel_0_noupd_info);
 302 RTS_INFO(stg_sel_1_noupd_info);
 303 RTS_INFO(stg_sel_2_noupd_info);
 304 RTS_INFO(stg_sel_3_noupd_info);
 305 RTS_INFO(stg_sel_4_noupd_info);
 306 RTS_INFO(stg_sel_5_noupd_info);
 307 RTS_INFO(stg_sel_6_noupd_info);
 308 RTS_INFO(stg_sel_7_noupd_info);
 309 RTS_INFO(stg_sel_8_noupd_info);
 310 RTS_INFO(stg_sel_9_noupd_info);
 311 RTS_INFO(stg_sel_10_noupd_info);
 312 RTS_INFO(stg_sel_11_noupd_info);
 313 RTS_INFO(stg_sel_12_noupd_info);
 314 RTS_INFO(stg_sel_13_noupd_info);
 315 RTS_INFO(stg_sel_14_noupd_info);
 316 RTS_INFO(stg_sel_15_noupd_info);
 317
 318 RTS_ENTRY(stg_sel_0_noupd_entry);
 319 RTS_ENTRY(stg_sel_1_noupd_entry);
 320 RTS_ENTRY(stg_sel_2_noupd_entry);
 321 RTS_ENTRY(stg_sel_3_noupd_entry);
 322 RTS_ENTRY(stg_sel_4_noupd_entry);
 323 RTS_ENTRY(stg_sel_5_noupd_entry);
 324 RTS_ENTRY(stg_sel_6_noupd_entry);
 325 RTS_ENTRY(stg_sel_7_noupd_entry);
 326 RTS_ENTRY(stg_sel_8_noupd_entry);
 327 RTS_ENTRY(stg_sel_9_noupd_entry);
 328 RTS_ENTRY(stg_sel_10_noupd_entry);
 329 RTS_ENTRY(stg_sel_11_noupd_entry);
 330 RTS_ENTRY(stg_sel_12_noupd_entry);
 331 RTS_ENTRY(stg_sel_13_noupd_entry);
 332 RTS_ENTRY(stg_sel_14_noupd_entry);
 333 RTS_ENTRY(stg_sel_15_noupd_entry);
 334
 335 /* standard ap thunks */
 336
 337 RTS_THUNK_INFO(stg_ap_1_upd_info);
 338 RTS_THUNK_INFO(stg_ap_2_upd_info);
 339 RTS_THUNK_INFO(stg_ap_3_upd_info);
 340 RTS_THUNK_INFO(stg_ap_4_upd_info);
 341 RTS_THUNK_INFO(stg_ap_5_upd_info);
 342 RTS_THUNK_INFO(stg_ap_6_upd_info);
 343 RTS_THUNK_INFO(stg_ap_7_upd_info);
 344
 345 RTS_ENTRY(stg_ap_1_upd_entry);
 346 RTS_ENTRY(stg_ap_2_upd_entry);
 347 RTS_ENTRY(stg_ap_3_upd_entry);
 348 RTS_ENTRY(stg_ap_4_upd_entry);
 349 RTS_ENTRY(stg_ap_5_upd_entry);
 350 RTS_ENTRY(stg_ap_6_upd_entry);
 351 RTS_ENTRY(stg_ap_7_upd_entry);
 352
 353 /* standard application routines (see also rts/gen_apply.py,
 354  * and compiler/codeGen/CgStackery.lhs).
 355  */
 356 RTS_RET_INFO(stg_ap_v_info);
 357 RTS_RET_INFO(stg_ap_f_info);
 358 RTS_RET_INFO(stg_ap_d_info);
 359 RTS_RET_INFO(stg_ap_l_info);
 360 RTS_RET_INFO(stg_ap_n_info);
 361 RTS_RET_INFO(stg_ap_p_info);
 362 RTS_RET_INFO(stg_ap_pv_info);
 363 RTS_RET_INFO(stg_ap_pp_info);
 364 RTS_RET_INFO(stg_ap_ppv_info);
 365 RTS_RET_INFO(stg_ap_ppp_info);
 366 RTS_RET_INFO(stg_ap_pppv_info);
 367 RTS_RET_INFO(stg_ap_pppp_info);
 368 RTS_RET_INFO(stg_ap_ppppp_info);
 369 RTS_RET_INFO(stg_ap_pppppp_info);
 370
 371 RTS_ENTRY(stg_ap_v_ret);
 372 RTS_ENTRY(stg_ap_f_ret);
 373 RTS_ENTRY(stg_ap_d_ret);
 374 RTS_ENTRY(stg_ap_l_ret);
 375 RTS_ENTRY(stg_ap_n_ret);
 376 RTS_ENTRY(stg_ap_p_ret);
 377 RTS_ENTRY(stg_ap_pv_ret);
 378 RTS_ENTRY(stg_ap_pp_ret);
 379 RTS_ENTRY(stg_ap_ppv_ret);
 380 RTS_ENTRY(stg_ap_ppp_ret);
 381 RTS_ENTRY(stg_ap_pppv_ret);
 382 RTS_ENTRY(stg_ap_pppp_ret);
 383 RTS_ENTRY(stg_ap_ppppp_ret);
 384 RTS_ENTRY(stg_ap_pppppp_ret);
 385
 386 RTS_FUN(stg_ap_0_fast);
 387 RTS_FUN(stg_ap_v_fast);
 388 RTS_FUN(stg_ap_f_fast);
 389 RTS_FUN(stg_ap_d_fast);
 390 RTS_FUN(stg_ap_l_fast);
 391 RTS_FUN(stg_ap_n_fast);
 392 RTS_FUN(stg_ap_p_fast);
 393 RTS_FUN(stg_ap_pv_fast);
 394 RTS_FUN(stg_ap_pp_fast);
 395 RTS_FUN(stg_ap_ppv_fast);
 396 RTS_FUN(stg_ap_ppp_fast);
 397 RTS_FUN(stg_ap_pppv_fast);
 398 RTS_FUN(stg_ap_pppp_fast);
 399 RTS_FUN(stg_ap_ppppp_fast);
 400 RTS_FUN(stg_ap_pppppp_fast);
 401 RTS_FUN(stg_PAP_apply);
 402
 403 /* standard GC & stack check entry points, all defined in HeapStackCheck.hc */
 404
 405 RTS_RET_INFO(stg_enter_info);
 406 RTS_ENTRY(stg_enter_ret);
 407
 408 RTS_RET_INFO(stg_gc_void_info);
 409 RTS_ENTRY(stg_gc_void_ret);
 410
 411 RTS_FUN(__stg_gc_enter_1);
 412
 413 RTS_FUN(stg_gc_noregs);
 414
 415 RTS_RET_INFO(stg_gc_unpt_r1_info);
 416 RTS_ENTRY(stg_gc_unpt_r1_ret);
 417 RTS_FUN(stg_gc_unpt_r1);
 418
 419 RTS_RET_INFO(stg_gc_unbx_r1_info);
 420 RTS_ENTRY(stg_gc_unbx_r1_ret);
 421 RTS_FUN(stg_gc_unbx_r1);
 422
 423 RTS_RET_INFO(stg_gc_f1_info);
 424 RTS_ENTRY(stg_gc_f1_ret);
 425 RTS_FUN(stg_gc_f1);
 426
 427 RTS_RET_INFO(stg_gc_d1_info);
 428 RTS_ENTRY(stg_gc_d1_ret);
 429 RTS_FUN(stg_gc_d1);
 430
 431 RTS_RET_INFO(stg_gc_l1_info);
 432 RTS_ENTRY(stg_gc_l1_ret);
 433 RTS_FUN(stg_gc_l1);
 434
 435 RTS_FUN(__stg_gc_fun);
 436 RTS_RET_INFO(stg_gc_fun_info);
 437 RTS_ENTRY(stg_gc_fun_ret);
 438
 439 RTS_RET_INFO(stg_gc_gen_info);
 440 RTS_ENTRY(stg_gc_gen_ret);
 441 RTS_FUN(stg_gc_gen);
 442
 443 RTS_ENTRY(stg_ut_1_0_unreg_ret);
 444 RTS_RET_INFO(stg_ut_1_0_unreg_info);
 445
 446 RTS_FUN(stg_gc_gen_hp);
 447 RTS_FUN(stg_gc_ut);
 448 RTS_FUN(stg_gen_yield);
 449 RTS_FUN(stg_yield_noregs);
 450 RTS_FUN(stg_yield_to_interpreter);
 451 RTS_FUN(stg_gen_block);
 452 RTS_FUN(stg_block_noregs);
 453 RTS_FUN(stg_block_1);
 454 RTS_FUN(stg_block_blackhole);
 455 RTS_FUN(stg_block_blackhole_finally);
 456 RTS_FUN(stg_block_takemvar);
 457 RTS_ENTRY(stg_block_takemvar_ret);
 458 RTS_FUN(stg_block_putmvar);
 459 RTS_ENTRY(stg_block_putmvar_ret);
 460 #ifdef mingw32_HOST_OS
 461 RTS_FUN(stg_block_async);
 462 RTS_ENTRY(stg_block_async_ret);
 463 RTS_FUN(stg_block_async_void);
 464 RTS_ENTRY(stg_block_async_void_ret);
 465 #endif
 466 RTS_FUN(stg_block_stmwait);
 467 RTS_FUN(stg_block_throwto);
 468 RTS_ENTRY(stg_block_throwto_ret);
 469 RTS_RET_INFO(stg_block_throwto_info);
 470
 471 /* Entry/exit points from StgStartup.cmm */
 472
 473 RTS_RET_INFO(stg_stop_thread_info);
 474 RTS_ENTRY(stg_stop_thread_ret);
 475
 476 RTS_FUN(stg_returnToStackTop);
 477 RTS_FUN(stg_returnToSched);
 478 RTS_FUN(stg_returnToSchedNotPaused);
 479 RTS_FUN(stg_returnToSchedButFirst);
 480 RTS_FUN(stg_threadFinished);
 481
 482 RTS_FUN(stg_init_finish);
 483 RTS_FUN(stg_init);
 484
 485 RTS_FUN(StgReturn);
 486
 487 /* -----------------------------------------------------------------------------
 488    PrimOps
 489    -------------------------------------------------------------------------- */
 490
 491 RTS_FUN(stg_plusIntegerzh);
 492 RTS_FUN(stg_minusIntegerzh);
 493 RTS_FUN(stg_timesIntegerzh);
 494 RTS_FUN(stg_gcdIntegerzh);
 495 RTS_FUN(stg_quotRemIntegerzh);
 496 RTS_FUN(stg_quotIntegerzh);
 497 RTS_FUN(stg_remIntegerzh);
 498 RTS_FUN(stg_divExactIntegerzh);
 499 RTS_FUN(stg_divModIntegerzh);
 500
 501 RTS_FUN(stg_cmpIntegerIntzh);
 502 RTS_FUN(stg_cmpIntegerzh);
 503 RTS_FUN(stg_integer2Intzh);
 504 RTS_FUN(stg_integer2Wordzh);
 505 RTS_FUN(stg_gcdIntegerIntzh);
 506 RTS_FUN(stg_gcdIntzh);
 507
 508 RTS_FUN(stg_int2Integerzh);
 509 RTS_FUN(stg_word2Integerzh);
 510
 511 RTS_FUN(stg_decodeFloatzuIntzh);
 512 RTS_FUN(stg_decodeDoublezh);
 513 RTS_FUN(stg_decodeDoublezu2Intzh);
 514
 515 RTS_FUN(stg_andIntegerzh);
 516 RTS_FUN(stg_orIntegerzh);
 517 RTS_FUN(stg_xorIntegerzh);
 518 RTS_FUN(stg_complementIntegerzh);
 519
 520 #if SIZEOF_HSINT == 4
 521
 522 RTS_FUN(stg_int64ToIntegerzh);
 523 RTS_FUN(stg_word64ToIntegerzh);
 524
 525 #endif
 526
 527 RTS_FUN(stg_unsafeThawArrayzh);
 528 RTS_FUN(stg_newByteArrayzh);
 529 RTS_FUN(stg_newPinnedByteArrayzh);
 530 RTS_FUN(stg_newAlignedPinnedByteArrayzh);
 531 RTS_FUN(stg_newArrayzh);
 532
 533 RTS_FUN(stg_newMutVarzh);
 534 RTS_FUN(stg_atomicModifyMutVarzh);
 535
 536 RTS_FUN(stg_isEmptyMVarzh);
 537 RTS_FUN(stg_newMVarzh);
 538 RTS_FUN(stg_takeMVarzh);
 539 RTS_FUN(stg_putMVarzh);
 540 RTS_FUN(stg_tryTakeMVarzh);
 541 RTS_FUN(stg_tryPutMVarzh);
 542
 543 RTS_FUN(stg_waitReadzh);
 544 RTS_FUN(stg_waitWritezh);
 545 RTS_FUN(stg_delayzh);
 546 #ifdef mingw32_HOST_OS
 547 RTS_FUN(stg_asyncReadzh);
 548 RTS_FUN(stg_asyncWritezh);
 549 RTS_FUN(stg_asyncDoProczh);
 550 #endif
 551
 552 RTS_FUN(stg_catchzh);
 553 RTS_FUN(stg_raisezh);
 554 RTS_FUN(stg_raiseIOzh);
 555
 556 RTS_FUN(stg_makeStableNamezh);
 557 RTS_FUN(stg_makeStablePtrzh);
 558 RTS_FUN(stg_deRefStablePtrzh);
 559
 560 RTS_FUN(stg_forkzh);
 561 RTS_FUN(stg_forkOnzh);
 562 RTS_FUN(stg_yieldzh);
 563 RTS_FUN(stg_killThreadzh);
 564 RTS_FUN(stg_asyncExceptionsBlockedzh);
 565 RTS_FUN(stg_blockAsyncExceptionszh);
 566 RTS_FUN(stg_unblockAsyncExceptionszh);
 567 RTS_FUN(stg_myThreadIdzh);
 568 RTS_FUN(stg_labelThreadzh);
 569 RTS_FUN(stg_isCurrentThreadBoundzh);
 570 RTS_FUN(stg_threadStatuszh);
 571
 572 RTS_FUN(stg_mkWeakzh);
 573 RTS_FUN(stg_mkWeakForeignzh);
 574 RTS_FUN(stg_mkWeakForeignEnvzh);
 575 RTS_FUN(stg_finalizzeWeakzh);
 576 RTS_FUN(stg_deRefWeakzh);
 577
 578 RTS_FUN(stg_newBCOzh);
 579 RTS_FUN(stg_mkApUpd0zh);
 580
 581 RTS_FUN(stg_retryzh);
 582 RTS_FUN(stg_catchRetryzh);
 583 RTS_FUN(stg_catchSTMzh);
 584 RTS_FUN(stg_atomicallyzh);
 585 RTS_FUN(stg_newTVarzh);
 586 RTS_FUN(stg_readTVarzh);
 587 RTS_FUN(stg_readTVarIOzh);
 588 RTS_FUN(stg_writeTVarzh);
 589 RTS_FUN(stg_checkzh);
 590
 591 RTS_FUN(stg_unpackClosurezh);
 592 RTS_FUN(stg_getApStackValzh);
 593 RTS_FUN(stg_getSparkzh);
 594
 595 RTS_FUN(stg_noDuplicatezh);
 596
 597 RTS_FUN(stg_traceCcszh);
 598 RTS_FUN(stg_traceEventzh);
 599
 600 /* Other misc stuff */
 601 // See wiki:Commentary/Compiler/Backends/PprC#Prototypes
 602
 603 #if IN_STG_CODE && !IN_STGCRUN
 604
 605 // Interpreter.c
 606 extern StgWord rts_stop_next_breakpoint[];
 607 extern StgWord rts_stop_on_exception[];
 608 extern StgWord rts_breakpoint_io_action[];
 609
 610 // Schedule.c
 611 extern StgWord RTS_VAR(blocked_queue_hd), RTS_VAR(blocked_queue_tl);
 612 extern StgWord RTS_VAR(sleeping_queue);
 613 extern StgWord RTS_VAR(blackhole_queue);
 614 extern StgWord RTS_VAR(sched_mutex);
 615
 616 // Apply.cmm
 617 // canned bitmap for each arg type
 618 extern StgWord stg_arg_bitmaps[];
 619 extern StgWord stg_ap_stack_entries[];
 620 extern StgWord stg_stack_save_entries[];
 621
 622 // Storage.c
 623 extern unsigned int RTS_VAR(g0);
 624 extern unsigned int RTS_VAR(alloc_blocks_lim);
 625 extern StgWord RTS_VAR(weak_ptr_list);
 626 extern StgWord RTS_VAR(atomic_modify_mutvar_mutex);
 627
 628 // RtsFlags
 629 extern StgWord RTS_VAR(RtsFlags); // bogus type
 630
 631 // Stable.c
 632 extern StgWord RTS_VAR(stable_ptr_table);
 633
 634 // Profiling.c
 635 extern unsigned int RTS_VAR(era);
 636 extern StgWord      RTS_VAR(CCCS);              /* current CCS */
 637 extern unsigned int RTS_VAR(entering_PAP);
 638 extern StgWord      RTS_VAR(CC_LIST);               /* registered CC list */
 639 extern StgWord      RTS_VAR(CCS_LIST);         /* registered CCS list */
 640 extern unsigned int RTS_VAR(CC_ID);     /* global ids */
 641 extern unsigned int RTS_VAR(CCS_ID);
 642
 643 #endif
 644
 645 #endif /* STGMISCCLOSURES_H */