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_DECL(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_DECL(f)   extern DLL_IMPORT_RTS StgFunPtr f(void)
  37 #endif
  38
  39 #ifdef TABLES_NEXT_TO_CODE
  40 #  define RTS_RET(f)      RTS_INFO(f##_info)
  41 #  define RTS_ENTRY(f)    RTS_INFO(f##_info)
  42 #  define RTS_FUN(f)      RTS_FUN_INFO(f##_info)
  43 #  define RTS_THUNK(f)    RTS_THUNK_INFO(f##_info)
  44 #else
  45 #  define RTS_RET(f)      RTS_INFO(f##_info);  RTS_FUN_DECL(f##_ret)
  46 #  define RTS_ENTRY(f)    RTS_INFO(f##_info);  RTS_FUN_DECL(f##_entry)
  47 #  define RTS_FUN(f)      RTS_FUN_INFO(f##_info); RTS_FUN_DECL(f##_entry)
  48 #  define RTS_THUNK(f)    RTS_THUNK_INFO(f##_info); RTS_FUN_DECL(f##_entry)
  49 #endif
  50
  51 /* Stack frames */
  52 RTS_RET(stg_upd_frame);
  53 RTS_RET(stg_bh_upd_frame);
  54 RTS_RET(stg_marked_upd_frame);
  55 RTS_RET(stg_noupd_frame);
  56 RTS_RET(stg_catch_frame);
  57 RTS_RET(stg_catch_retry_frame);
  58 RTS_RET(stg_atomically_frame);
  59 RTS_RET(stg_atomically_waiting_frame);
  60 RTS_RET(stg_catch_stm_frame);
  61 RTS_RET(stg_unmaskAsyncExceptionszh_ret);
  62 RTS_RET(stg_maskUninterruptiblezh_ret);
  63 RTS_RET(stg_maskAsyncExceptionszh_ret);
  64 RTS_RET(stg_stack_underflow_frame);
  65
  66 // RTS_FUN(stg_interp_constr_entry);
  67 //
  68 // This is referenced using the FFI in the compiler (ByteCodeItbls),
  69 // so we can't give it the correct type here because the prototypes
  70 // would clash (FFI references are always declared with type StgWord[]
  71 // in the generated C code).
  72
  73 /* Magic glue code for when compiled code returns a value in R1/F1/D1
  74    or a VoidRep to the interpreter. */
  75 RTS_RET(stg_ctoi_R1p);
  76 RTS_RET(stg_ctoi_R1unpt);
  77 RTS_RET(stg_ctoi_R1n);
  78 RTS_RET(stg_ctoi_F1);
  79 RTS_RET(stg_ctoi_D1);
  80 RTS_RET(stg_ctoi_L1);
  81 RTS_RET(stg_ctoi_V);
  82
  83 RTS_RET(stg_apply_interp);
  84
  85 RTS_ENTRY(stg_IND);
  86 RTS_ENTRY(stg_IND_direct);
  87 RTS_ENTRY(stg_IND_STATIC);
  88 RTS_ENTRY(stg_IND_PERM);
  89 RTS_ENTRY(stg_BLACKHOLE);
  90 RTS_ENTRY(stg_CAF_BLACKHOLE);
  91 RTS_ENTRY(__stg_EAGER_BLACKHOLE);
  92 RTS_ENTRY(stg_WHITEHOLE);
  93 RTS_ENTRY(stg_BLOCKING_QUEUE_CLEAN);
  94 RTS_ENTRY(stg_BLOCKING_QUEUE_DIRTY);
  95
  96 RTS_FUN(stg_BCO);
  97 RTS_ENTRY(stg_EVACUATED);
  98 RTS_ENTRY(stg_WEAK);
  99 RTS_ENTRY(stg_DEAD_WEAK);
 100 RTS_ENTRY(stg_STABLE_NAME);
 101 RTS_ENTRY(stg_MVAR_CLEAN);
 102 RTS_ENTRY(stg_MVAR_DIRTY);
 103 RTS_ENTRY(stg_TSO);
 104 RTS_ENTRY(stg_STACK);
 105 RTS_ENTRY(stg_ARR_WORDS);
 106 RTS_ENTRY(stg_MUT_ARR_WORDS);
 107 RTS_ENTRY(stg_MUT_ARR_PTRS_CLEAN);
 108 RTS_ENTRY(stg_MUT_ARR_PTRS_DIRTY);
 109 RTS_ENTRY(stg_MUT_ARR_PTRS_FROZEN);
 110 RTS_ENTRY(stg_MUT_ARR_PTRS_FROZEN0);
 111 RTS_ENTRY(stg_MUT_VAR_CLEAN);
 112 RTS_ENTRY(stg_MUT_VAR_DIRTY);
 113 RTS_ENTRY(stg_END_TSO_QUEUE);
 114 RTS_ENTRY(stg_MSG_TRY_WAKEUP);
 115 RTS_ENTRY(stg_MSG_THROWTO);
 116 RTS_ENTRY(stg_MSG_BLACKHOLE);
 117 RTS_ENTRY(stg_MSG_NULL);
 118 RTS_ENTRY(stg_MVAR_TSO_QUEUE);
 119 RTS_ENTRY(stg_catch);
 120 RTS_ENTRY(stg_PAP);
 121 RTS_ENTRY(stg_AP);
 122 RTS_ENTRY(stg_AP_NOUPD);
 123 RTS_ENTRY(stg_AP_STACK);
 124 RTS_ENTRY(stg_AP_STACK_NOUPD);
 125 RTS_ENTRY(stg_dummy_ret);
 126 RTS_ENTRY(stg_raise);
 127 RTS_ENTRY(stg_raise_ret);
 128 RTS_ENTRY(stg_TVAR_WATCH_QUEUE);
 129 RTS_ENTRY(stg_INVARIANT_CHECK_QUEUE);
 130 RTS_ENTRY(stg_ATOMIC_INVARIANT);
 131 RTS_ENTRY(stg_TVAR);
 132 RTS_ENTRY(stg_TREC_CHUNK);
 133 RTS_ENTRY(stg_TREC_HEADER);
 134 RTS_ENTRY(stg_END_STM_WATCH_QUEUE);
 135 RTS_ENTRY(stg_END_INVARIANT_CHECK_QUEUE);
 136 RTS_ENTRY(stg_END_STM_CHUNK_LIST);
 137 RTS_ENTRY(stg_NO_TREC);
 138
 139 /* closures */
 140
 141 RTS_CLOSURE(stg_END_TSO_QUEUE_closure);
 142 RTS_CLOSURE(stg_NO_FINALIZER_closure);
 143 RTS_CLOSURE(stg_dummy_ret_closure);
 144 RTS_CLOSURE(stg_forceIO_closure);
 145
 146 RTS_CLOSURE(stg_END_STM_WATCH_QUEUE_closure);
 147 RTS_CLOSURE(stg_END_INVARIANT_CHECK_QUEUE_closure);
 148 RTS_CLOSURE(stg_END_STM_CHUNK_LIST_closure);
 149 RTS_CLOSURE(stg_NO_TREC_closure);
 150
 151 RTS_ENTRY(stg_NO_FINALIZER_entry);
 152
 153 #if IN_STG_CODE
 154 extern DLL_IMPORT_RTS StgWordArray stg_CHARLIKE_closure;
 155 extern DLL_IMPORT_RTS StgWordArray stg_INTLIKE_closure;
 156 #else
 157 extern DLL_IMPORT_RTS StgIntCharlikeClosure stg_CHARLIKE_closure[];
 158 extern DLL_IMPORT_RTS StgIntCharlikeClosure stg_INTLIKE_closure[];
 159 #endif
 160
 161 /* StgStartup */
 162
 163 RTS_RET(stg_forceIO);
 164 RTS_RET(stg_noforceIO);
 165
 166 /* standard entry points */
 167
 168 /* standard selector thunks */
 169
 170 RTS_RET(stg_sel_ret_0_upd);
 171 RTS_RET(stg_sel_ret_1_upd);
 172 RTS_RET(stg_sel_ret_2_upd);
 173 RTS_RET(stg_sel_ret_3_upd);
 174 RTS_RET(stg_sel_ret_4_upd);
 175 RTS_RET(stg_sel_ret_5_upd);
 176 RTS_RET(stg_sel_ret_6_upd);
 177 RTS_RET(stg_sel_ret_7_upd);
 178 RTS_RET(stg_sel_ret_8_upd);
 179 RTS_RET(stg_sel_ret_9_upd);
 180 RTS_RET(stg_sel_ret_10_upd);
 181 RTS_RET(stg_sel_ret_11_upd);
 182 RTS_RET(stg_sel_ret_12_upd);
 183 RTS_RET(stg_sel_ret_13_upd);
 184 RTS_RET(stg_sel_ret_14_upd);
 185 RTS_RET(stg_sel_ret_15_upd);
 186
 187 RTS_ENTRY(stg_sel_0_upd);
 188 RTS_ENTRY(stg_sel_1_upd);
 189 RTS_ENTRY(stg_sel_2_upd);
 190 RTS_ENTRY(stg_sel_3_upd);
 191 RTS_ENTRY(stg_sel_4_upd);
 192 RTS_ENTRY(stg_sel_5_upd);
 193 RTS_ENTRY(stg_sel_6_upd);
 194 RTS_ENTRY(stg_sel_7_upd);
 195 RTS_ENTRY(stg_sel_8_upd);
 196 RTS_ENTRY(stg_sel_9_upd);
 197 RTS_ENTRY(stg_sel_10_upd);
 198 RTS_ENTRY(stg_sel_11_upd);
 199 RTS_ENTRY(stg_sel_12_upd);
 200 RTS_ENTRY(stg_sel_13_upd);
 201 RTS_ENTRY(stg_sel_14_upd);
 202 RTS_ENTRY(stg_sel_15_upd);
 203
 204 RTS_ENTRY(stg_sel_0_noupd);
 205 RTS_ENTRY(stg_sel_1_noupd);
 206 RTS_ENTRY(stg_sel_2_noupd);
 207 RTS_ENTRY(stg_sel_3_noupd);
 208 RTS_ENTRY(stg_sel_4_noupd);
 209 RTS_ENTRY(stg_sel_5_noupd);
 210 RTS_ENTRY(stg_sel_6_noupd);
 211 RTS_ENTRY(stg_sel_7_noupd);
 212 RTS_ENTRY(stg_sel_8_noupd);
 213 RTS_ENTRY(stg_sel_9_noupd);
 214 RTS_ENTRY(stg_sel_10_noupd);
 215 RTS_ENTRY(stg_sel_11_noupd);
 216 RTS_ENTRY(stg_sel_12_noupd);
 217 RTS_ENTRY(stg_sel_13_noupd);
 218 RTS_ENTRY(stg_sel_14_noupd);
 219 RTS_ENTRY(stg_sel_15_noupd);
 220
 221 /* standard ap thunks */
 222
 223 RTS_THUNK(stg_ap_1_upd);
 224 RTS_THUNK(stg_ap_2_upd);
 225 RTS_THUNK(stg_ap_3_upd);
 226 RTS_THUNK(stg_ap_4_upd);
 227 RTS_THUNK(stg_ap_5_upd);
 228 RTS_THUNK(stg_ap_6_upd);
 229 RTS_THUNK(stg_ap_7_upd);
 230
 231 /* standard application routines (see also rts/gen_apply.py,
 232  * and compiler/codeGen/CgStackery.lhs).
 233  */
 234 RTS_RET(stg_ap_v);
 235 RTS_RET(stg_ap_f);
 236 RTS_RET(stg_ap_d);
 237 RTS_RET(stg_ap_l);
 238 RTS_RET(stg_ap_n);
 239 RTS_RET(stg_ap_p);
 240 RTS_RET(stg_ap_pv);
 241 RTS_RET(stg_ap_pp);
 242 RTS_RET(stg_ap_ppv);
 243 RTS_RET(stg_ap_ppp);
 244 RTS_RET(stg_ap_pppv);
 245 RTS_RET(stg_ap_pppp);
 246 RTS_RET(stg_ap_ppppp);
 247 RTS_RET(stg_ap_pppppp);
 248
 249 RTS_FUN_DECL(stg_ap_0_fast);
 250 RTS_FUN_DECL(stg_ap_v_fast);
 251 RTS_FUN_DECL(stg_ap_f_fast);
 252 RTS_FUN_DECL(stg_ap_d_fast);
 253 RTS_FUN_DECL(stg_ap_l_fast);
 254 RTS_FUN_DECL(stg_ap_n_fast);
 255 RTS_FUN_DECL(stg_ap_p_fast);
 256 RTS_FUN_DECL(stg_ap_pv_fast);
 257 RTS_FUN_DECL(stg_ap_pp_fast);
 258 RTS_FUN_DECL(stg_ap_ppv_fast);
 259 RTS_FUN_DECL(stg_ap_ppp_fast);
 260 RTS_FUN_DECL(stg_ap_pppv_fast);
 261 RTS_FUN_DECL(stg_ap_pppp_fast);
 262 RTS_FUN_DECL(stg_ap_ppppp_fast);
 263 RTS_FUN_DECL(stg_ap_pppppp_fast);
 264 RTS_FUN_DECL(stg_PAP_apply);
 265
 266 /* standard GC & stack check entry points, all defined in HeapStackCheck.hc */
 267
 268 RTS_RET(stg_enter);
 269 RTS_RET(stg_enter_checkbh);
 270
 271 RTS_RET(stg_gc_void);
 272
 273 RTS_FUN_DECL(__stg_gc_enter_1);
 274 RTS_FUN_DECL(stg_gc_noregs);
 275
 276 RTS_RET(stg_gc_unpt_r1);
 277 RTS_FUN_DECL(stg_gc_unpt_r1);
 278
 279 RTS_RET(stg_gc_unbx_r1);
 280 RTS_FUN_DECL(stg_gc_unbx_r1);
 281
 282 RTS_RET(stg_gc_f1);
 283 RTS_FUN_DECL(stg_gc_f1);
 284
 285 RTS_RET(stg_gc_d1);
 286 RTS_FUN_DECL(stg_gc_d1);
 287
 288 RTS_RET(stg_gc_l1);
 289 RTS_FUN_DECL(stg_gc_l1);
 290
 291 RTS_RET(stg_gc_fun);
 292 RTS_FUN_DECL(__stg_gc_fun);
 293
 294 RTS_RET(stg_gc_gen);
 295 RTS_FUN_DECL(stg_gc_gen);
 296
 297 RTS_RET(stg_ut_1_0_unreg);
 298
 299 RTS_FUN_DECL(stg_gc_gen_hp);
 300 RTS_FUN_DECL(stg_gc_ut);
 301 RTS_FUN_DECL(stg_gen_yield);
 302 RTS_FUN_DECL(stg_yield_noregs);
 303 RTS_FUN_DECL(stg_yield_to_interpreter);
 304 RTS_FUN_DECL(stg_gen_block);
 305 RTS_FUN_DECL(stg_block_noregs);
 306 RTS_FUN_DECL(stg_block_1);
 307 RTS_FUN_DECL(stg_block_blackhole);
 308 RTS_FUN_DECL(stg_block_blackhole_finally);
 309 RTS_FUN_DECL(stg_block_takemvar);
 310 RTS_RET(stg_block_takemvar);
 311 RTS_FUN_DECL(stg_block_putmvar);
 312 RTS_RET(stg_block_putmvar);
 313 #ifdef mingw32_HOST_OS
 314 RTS_FUN_DECL(stg_block_async);
 315 RTS_RET(stg_block_async);
 316 RTS_FUN_DECL(stg_block_async_void);
 317 RTS_RET(stg_block_async_void);
 318 #endif
 319 RTS_FUN_DECL(stg_block_stmwait);
 320 RTS_FUN_DECL(stg_block_throwto);
 321 RTS_RET(stg_block_throwto);
 322
 323 /* Entry/exit points from StgStartup.cmm */
 324
 325 RTS_RET(stg_stop_thread);
 326
 327 RTS_FUN_DECL(stg_returnToStackTop);
 328 RTS_FUN_DECL(stg_returnToSched);
 329 RTS_FUN_DECL(stg_returnToSchedNotPaused);
 330 RTS_FUN_DECL(stg_returnToSchedButFirst);
 331 RTS_FUN_DECL(stg_threadFinished);
 332
 333 RTS_FUN_DECL(stg_init_finish);
 334 RTS_FUN_DECL(stg_init);
 335
 336 RTS_FUN_DECL(StgReturn);
 337
 338 /* -----------------------------------------------------------------------------
 339    PrimOps
 340    -------------------------------------------------------------------------- */
 341
 342 RTS_FUN_DECL(stg_plusIntegerzh);
 343 RTS_FUN_DECL(stg_minusIntegerzh);
 344 RTS_FUN_DECL(stg_timesIntegerzh);
 345 RTS_FUN_DECL(stg_gcdIntegerzh);
 346 RTS_FUN_DECL(stg_quotRemIntegerzh);
 347 RTS_FUN_DECL(stg_quotIntegerzh);
 348 RTS_FUN_DECL(stg_remIntegerzh);
 349 RTS_FUN_DECL(stg_divExactIntegerzh);
 350 RTS_FUN_DECL(stg_divModIntegerzh);
 351
 352 RTS_FUN_DECL(stg_cmpIntegerIntzh);
 353 RTS_FUN_DECL(stg_cmpIntegerzh);
 354 RTS_FUN_DECL(stg_integer2Intzh);
 355 RTS_FUN_DECL(stg_integer2Wordzh);
 356 RTS_FUN_DECL(stg_gcdIntegerIntzh);
 357 RTS_FUN_DECL(stg_gcdIntzh);
 358
 359 RTS_FUN_DECL(stg_int2Integerzh);
 360 RTS_FUN_DECL(stg_word2Integerzh);
 361
 362 RTS_FUN_DECL(stg_decodeFloatzuIntzh);
 363 RTS_FUN_DECL(stg_decodeDoublezh);
 364 RTS_FUN_DECL(stg_decodeDoublezu2Intzh);
 365
 366 RTS_FUN_DECL(stg_andIntegerzh);
 367 RTS_FUN_DECL(stg_orIntegerzh);
 368 RTS_FUN_DECL(stg_xorIntegerzh);
 369 RTS_FUN_DECL(stg_complementIntegerzh);
 370
 371 #if SIZEOF_HSINT == 4
 372
 373 RTS_FUN_DECL(stg_int64ToIntegerzh);
 374 RTS_FUN_DECL(stg_word64ToIntegerzh);
 375
 376 #endif
 377
 378 RTS_FUN_DECL(stg_unsafeThawArrayzh);
 379 RTS_FUN_DECL(stg_newByteArrayzh);
 380 RTS_FUN_DECL(stg_newPinnedByteArrayzh);
 381 RTS_FUN_DECL(stg_newAlignedPinnedByteArrayzh);
 382 RTS_FUN_DECL(stg_newArrayzh);
 383
 384 RTS_FUN_DECL(stg_newMutVarzh);
 385 RTS_FUN_DECL(stg_atomicModifyMutVarzh);
 386 RTS_FUN_DECL(stg_casMutVarzh);
 387
 388 RTS_FUN_DECL(stg_isEmptyMVarzh);
 389 RTS_FUN_DECL(stg_newMVarzh);
 390 RTS_FUN_DECL(stg_takeMVarzh);
 391 RTS_FUN_DECL(stg_putMVarzh);
 392 RTS_FUN_DECL(stg_tryTakeMVarzh);
 393 RTS_FUN_DECL(stg_tryPutMVarzh);
 394
 395 RTS_FUN_DECL(stg_waitReadzh);
 396 RTS_FUN_DECL(stg_waitWritezh);
 397 RTS_FUN_DECL(stg_delayzh);
 398 #ifdef mingw32_HOST_OS
 399 RTS_FUN_DECL(stg_asyncReadzh);
 400 RTS_FUN_DECL(stg_asyncWritezh);
 401 RTS_FUN_DECL(stg_asyncDoProczh);
 402 #endif
 403
 404 RTS_FUN_DECL(stg_catchzh);
 405 RTS_FUN_DECL(stg_raisezh);
 406 RTS_FUN_DECL(stg_raiseIOzh);
 407
 408 RTS_FUN_DECL(stg_makeStableNamezh);
 409 RTS_FUN_DECL(stg_makeStablePtrzh);
 410 RTS_FUN_DECL(stg_deRefStablePtrzh);
 411
 412 RTS_FUN_DECL(stg_forkzh);
 413 RTS_FUN_DECL(stg_forkOnzh);
 414 RTS_FUN_DECL(stg_yieldzh);
 415 RTS_FUN_DECL(stg_killThreadzh);
 416 RTS_FUN_DECL(stg_getMaskingStatezh);
 417 RTS_FUN_DECL(stg_maskAsyncExceptionszh);
 418 RTS_FUN_DECL(stg_maskUninterruptiblezh);
 419 RTS_FUN_DECL(stg_unmaskAsyncExceptionszh);
 420 RTS_FUN_DECL(stg_myThreadIdzh);
 421 RTS_FUN_DECL(stg_labelThreadzh);
 422 RTS_FUN_DECL(stg_isCurrentThreadBoundzh);
 423 RTS_FUN_DECL(stg_threadStatuszh);
 424
 425 RTS_FUN_DECL(stg_mkWeakzh);
 426 RTS_FUN_DECL(stg_mkWeakForeignzh);
 427 RTS_FUN_DECL(stg_mkWeakForeignEnvzh);
 428 RTS_FUN_DECL(stg_finalizzeWeakzh);
 429 RTS_FUN_DECL(stg_deRefWeakzh);
 430
 431 RTS_FUN_DECL(stg_newBCOzh);
 432 RTS_FUN_DECL(stg_mkApUpd0zh);
 433
 434 RTS_FUN_DECL(stg_retryzh);
 435 RTS_FUN_DECL(stg_catchRetryzh);
 436 RTS_FUN_DECL(stg_catchSTMzh);
 437 RTS_FUN_DECL(stg_atomicallyzh);
 438 RTS_FUN_DECL(stg_newTVarzh);
 439 RTS_FUN_DECL(stg_readTVarzh);
 440 RTS_FUN_DECL(stg_readTVarIOzh);
 441 RTS_FUN_DECL(stg_writeTVarzh);
 442 RTS_FUN_DECL(stg_checkzh);
 443
 444 RTS_FUN_DECL(stg_unpackClosurezh);
 445 RTS_FUN_DECL(stg_getApStackValzh);
 446 RTS_FUN_DECL(stg_getSparkzh);
 447 RTS_FUN_DECL(stg_numSparkszh);
 448
 449 RTS_FUN_DECL(stg_noDuplicatezh);
 450
 451 RTS_FUN_DECL(stg_traceCcszh);
 452 RTS_FUN_DECL(stg_traceEventzh);
 453
 454 /* Other misc stuff */
 455 // See wiki:Commentary/Compiler/Backends/PprC#Prototypes
 456
 457 #if IN_STG_CODE && !IN_STGCRUN
 458
 459 // Interpreter.c
 460 extern StgWord rts_stop_next_breakpoint[];
 461 extern StgWord rts_stop_on_exception[];
 462 extern StgWord rts_breakpoint_io_action[];
 463
 464 // Schedule.c
 465 extern StgWord RTS_VAR(blocked_queue_hd), RTS_VAR(blocked_queue_tl);
 466 extern StgWord RTS_VAR(sleeping_queue);
 467 extern StgWord RTS_VAR(blackhole_queue);
 468 extern StgWord RTS_VAR(sched_mutex);
 469
 470 // Apply.cmm
 471 // canned bitmap for each arg type
 472 extern StgWord stg_arg_bitmaps[];
 473 extern StgWord stg_ap_stack_entries[];
 474 extern StgWord stg_stack_save_entries[];
 475
 476 // Storage.c
 477 extern unsigned int RTS_VAR(g0);
 478 extern unsigned int RTS_VAR(large_alloc_lim);
 479 extern StgWord RTS_VAR(weak_ptr_list);
 480 extern StgWord RTS_VAR(atomic_modify_mutvar_mutex);
 481
 482 // RtsFlags
 483 extern StgWord RTS_VAR(RtsFlags); // bogus type
 484
 485 // Stable.c
 486 extern StgWord RTS_VAR(stable_ptr_table);
 487
 488 // Profiling.c
 489 extern unsigned int RTS_VAR(era);
 490 extern StgWord      RTS_VAR(CCCS);              /* current CCS */
 491 extern unsigned int RTS_VAR(entering_PAP);
 492 extern StgWord      RTS_VAR(CC_LIST);               /* registered CC list */
 493 extern StgWord      RTS_VAR(CCS_LIST);         /* registered CCS list */
 494 extern StgWord      CCS_SYSTEM[];
 495 extern unsigned int RTS_VAR(CC_ID);     /* global ids */
 496 extern unsigned int RTS_VAR(CCS_ID);
 497
 498 #endif
 499
 500 #endif /* STGMISCCLOSURES_H */