rts/Prelude.h

   1 /* -----------------------------------------------------------------------------
   2  *
   3  * (c) The GHC Team, 1998-2005
   4  *
   5  * Prelude identifiers that we sometimes need to refer to in the RTS.
   6  *
   7  * ---------------------------------------------------------------------------*/
   8
   9 #ifndef PRELUDE_H
  10 #define PRELUDE_H
  11
  12 /* These definitions are required by the RTS .cmm files too, so we
  13  * need declarations that we can #include into the generated .hc files.
  14  */
  15 #if IN_STG_CODE
  16 #define PRELUDE_INFO(i)       extern W_(i)[]
  17 #define PRELUDE_CLOSURE(i)    extern W_(i)[]
  18 #else
  19 #define PRELUDE_INFO(i)       extern const StgInfoTable DLL_IMPORT_DATA_VARNAME(i)
  20 #define PRELUDE_CLOSURE(i)    extern StgClosure DLL_IMPORT_DATA_VARNAME(i)
  21 #endif
  22
  23 /* Define canonical names so we can abstract away from the actual
  24  * modules these names are defined in.
  25  */
  26
  27 PRELUDE_CLOSURE(ghczmprim_GHCziTypes_True_closure);
  28 PRELUDE_CLOSURE(ghczmprim_GHCziTypes_False_closure);
  29 PRELUDE_CLOSURE(base_GHCziPack_unpackCString_closure);
  30 PRELUDE_CLOSURE(base_GHCziWeak_runFinalizzerBatch_closure);
  31
  32 #ifdef IN_STG_CODE
  33 extern W_ ZCMain_main_closure[];
  34 #else
  35 extern StgClosure ZCMain_main_closure;
  36 #endif
  37
  38 PRELUDE_CLOSURE(base_GHCziIOziException_stackOverflow_closure);
  39 PRELUDE_CLOSURE(base_GHCziIOziException_heapOverflow_closure);
  40 PRELUDE_CLOSURE(base_GHCziIOziException_blockedIndefinitelyOnThrowTo_closure);
  41 PRELUDE_CLOSURE(base_GHCziIOziException_blockedIndefinitelyOnMVar_closure);
  42 PRELUDE_CLOSURE(base_GHCziIOziException_blockedIndefinitelyOnSTM_closure);
  43 PRELUDE_CLOSURE(base_ControlziExceptionziBase_nonTermination_closure);
  44 PRELUDE_CLOSURE(base_ControlziExceptionziBase_nestedAtomically_closure);
  45
  46 PRELUDE_CLOSURE(base_GHCziConcziSync_runSparks_closure);
  47 PRELUDE_CLOSURE(base_GHCziConcziIO_ensureIOManagerIsRunning_closure);
  48 PRELUDE_CLOSURE(base_GHCziConcziSignal_runHandlers_closure);
  49
  50 PRELUDE_INFO(ghczmprim_GHCziTypes_Czh_static_info);
  51 PRELUDE_INFO(ghczmprim_GHCziTypes_Izh_static_info);
  52 PRELUDE_INFO(ghczmprim_GHCziTypes_Fzh_static_info);
  53 PRELUDE_INFO(ghczmprim_GHCziTypes_Dzh_static_info);
  54 PRELUDE_INFO(base_Addr_Azh_static_info);
  55 PRELUDE_INFO(base_GHCziPtr_Ptr_static_info);
  56 PRELUDE_INFO(base_GHCziPtr_FunPtr_static_info);
  57 PRELUDE_INFO(base_GHCziInt_I8zh_static_info);
  58 PRELUDE_INFO(base_GHCziInt_I16zh_static_info);
  59 PRELUDE_INFO(base_GHCziInt_I32zh_static_info);
  60 PRELUDE_INFO(base_GHCziInt_I64zh_static_info);
  61 PRELUDE_INFO(base_GHCziWord_Wzh_static_info);
  62 PRELUDE_INFO(base_GHCziWord_W8zh_static_info);
  63 PRELUDE_INFO(base_GHCziWord_W16zh_static_info);
  64 PRELUDE_INFO(base_GHCziWord_W32zh_static_info);
  65 PRELUDE_INFO(base_GHCziWord_W64zh_static_info);
  66 PRELUDE_INFO(ghczmprim_GHCziTypes_Czh_con_info);
  67 PRELUDE_INFO(ghczmprim_GHCziTypes_Izh_con_info);
  68 PRELUDE_INFO(ghczmprim_GHCziTypes_Fzh_con_info);
  69 PRELUDE_INFO(ghczmprim_GHCziTypes_Dzh_con_info);
  70 PRELUDE_INFO(base_GHCziPtr_Ptr_con_info);
  71 PRELUDE_INFO(base_GHCziPtr_FunPtr_con_info);
  72 PRELUDE_INFO(base_Addr_Azh_con_info);
  73 PRELUDE_INFO(base_GHCziWord_Wzh_con_info);
  74 PRELUDE_INFO(base_GHCziInt_I8zh_con_info);
  75 PRELUDE_INFO(base_GHCziInt_I16zh_con_info);
  76 PRELUDE_INFO(base_GHCziInt_I32zh_con_info);
  77 PRELUDE_INFO(base_GHCziInt_I64zh_con_info);
  78 PRELUDE_INFO(base_GHCziWord_W8zh_con_info);
  79 PRELUDE_INFO(base_GHCziWord_W16zh_con_info);
  80 PRELUDE_INFO(base_GHCziWord_W32zh_con_info);
  81 PRELUDE_INFO(base_GHCziWord_W64zh_con_info);
  82 PRELUDE_INFO(base_GHCziStable_StablePtr_static_info);
  83 PRELUDE_INFO(base_GHCziStable_StablePtr_con_info);
  84
  85 #define True_closure              DLL_IMPORT_DATA_REF(ghczmprim_GHCziTypes_True_closure)
  86 #define False_closure             DLL_IMPORT_DATA_REF(ghczmprim_GHCziTypes_False_closure)
  87 #define unpackCString_closure     DLL_IMPORT_DATA_REF(base_GHCziPack_unpackCString_closure)
  88 #define runFinalizerBatch_closure DLL_IMPORT_DATA_REF(base_GHCziWeak_runFinalizzerBatch_closure)
  89 #define mainIO_closure            (&ZCMain_main_closure)
  90
  91 #define runSparks_closure         DLL_IMPORT_DATA_REF(base_GHCziConcziSync_runSparks_closure)
  92 #define ensureIOManagerIsRunning_closure DLL_IMPORT_DATA_REF(base_GHCziConcziIO_ensureIOManagerIsRunning_closure)
  93 #define runHandlers_closure       DLL_IMPORT_DATA_REF(base_GHCziConcziSignal_runHandlers_closure)
  94
  95 #define stackOverflow_closure     DLL_IMPORT_DATA_REF(base_GHCziIOziException_stackOverflow_closure)
  96 #define heapOverflow_closure      DLL_IMPORT_DATA_REF(base_GHCziIOziException_heapOverflow_closure)
  97 #define blockedIndefinitelyOnMVar_closure DLL_IMPORT_DATA_REF(base_GHCziIOziException_blockedIndefinitelyOnMVar_closure)
  98 #define blockedIndefinitelyOnSTM_closure DLL_IMPORT_DATA_REF(base_GHCziIOziException_blockedIndefinitelyOnSTM_closure)
  99 #define nonTermination_closure    DLL_IMPORT_DATA_REF(base_ControlziExceptionziBase_nonTermination_closure)
 100 #define nestedAtomically_closure  DLL_IMPORT_DATA_REF(base_ControlziExceptionziBase_nestedAtomically_closure)
 101
 102 #define Czh_static_info           DLL_IMPORT_DATA_REF(ghczmprim_GHCziTypes_Czh_static_info)
 103 #define Fzh_static_info           DLL_IMPORT_DATA_REF(ghczmprim_GHCziTypes_Fzh_static_info)
 104 #define Dzh_static_info           DLL_IMPORT_DATA_REF(ghczmprim_GHCziTypes_Dzh_static_info)
 105 #define Azh_static_info           DLL_IMPORT_DATA_REF(base_Addr_Azh_static_info)
 106 #define Izh_static_info           DLL_IMPORT_DATA_REF(ghczmprim_GHCziTypes_Izh_static_info)
 107 #define I8zh_static_info          DLL_IMPORT_DATA_REF(base_GHCziInt_I8zh_static_info)
 108 #define I16zh_static_info         DLL_IMPORT_DATA_REF(base_GHCziInt_I16zh_static_info)
 109 #define I32zh_static_info         DLL_IMPORT_DATA_REF(base_GHCziInt_I32zh_static_info)
 110 #define I64zh_static_info         DLL_IMPORT_DATA_REF(base_GHCziInt_I64zh_static_info)
 111 #define Wzh_static_info           DLL_IMPORT_DATA_REF(base_GHCziWord_Wzh_static_info)
 112 #define W8zh_static_info          DLL_IMPORT_DATA_REF(base_GHCziWord_W8zh_static_info)
 113 #define W16zh_static_info         DLL_IMPORT_DATA_REF(base_GHCziWord_W16zh_static_info)
 114 #define W32zh_static_info         DLL_IMPORT_DATA_REF(base_GHCziWord_W32zh_static_info)
 115 #define W64zh_static_info         DLL_IMPORT_DATA_REF(base_GHCziWord_W64zh_static_info)
 116 #define Ptr_static_info           DLL_IMPORT_DATA_REF(base_GHCziPtr_Ptr_static_info)
 117 #define FunPtr_static_info        DLL_IMPORT_DATA_REF(base_GHCziPtr_FunPtr_static_info)
 118 #define Czh_con_info              DLL_IMPORT_DATA_REF(ghczmprim_GHCziTypes_Czh_con_info)
 119 #define Izh_con_info              DLL_IMPORT_DATA_REF(ghczmprim_GHCziTypes_Izh_con_info)
 120 #define Fzh_con_info              DLL_IMPORT_DATA_REF(ghczmprim_GHCziTypes_Fzh_con_info)
 121 #define Dzh_con_info              DLL_IMPORT_DATA_REF(ghczmprim_GHCziTypes_Dzh_con_info)
 122 #define Azh_con_info              DLL_IMPORT_DATA_REF(base_Addr_Azh_con_info)
 123 #define Wzh_con_info              DLL_IMPORT_DATA_REF(base_GHCziWord_Wzh_con_info)
 124 #define W8zh_con_info             DLL_IMPORT_DATA_REF(base_GHCziWord_W8zh_con_info)
 125 #define W16zh_con_info            DLL_IMPORT_DATA_REF(base_GHCziWord_W16zh_con_info)
 126 #define W32zh_con_info            DLL_IMPORT_DATA_REF(base_GHCziWord_W32zh_con_info)
 127 #define W64zh_con_info            DLL_IMPORT_DATA_REF(base_GHCziWord_W64zh_con_info)
 128 #define I8zh_con_info             DLL_IMPORT_DATA_REF(base_GHCziInt_I8zh_con_info)
 129 #define I16zh_con_info            DLL_IMPORT_DATA_REF(base_GHCziInt_I16zh_con_info)
 130 #define I32zh_con_info            DLL_IMPORT_DATA_REF(base_GHCziInt_I32zh_con_info)
 131 #define I64zh_con_info            DLL_IMPORT_DATA_REF(base_GHCziInt_I64zh_con_info)
 132 #define I64zh_con_info            DLL_IMPORT_DATA_REF(base_GHCziInt_I64zh_con_info)
 133 #define Ptr_con_info              DLL_IMPORT_DATA_REF(base_GHCziPtr_Ptr_con_info)
 134 #define FunPtr_con_info           DLL_IMPORT_DATA_REF(base_GHCziPtr_FunPtr_con_info)
 135 #define StablePtr_static_info     DLL_IMPORT_DATA_REF(base_GHCziStable_StablePtr_static_info)
 136 #define StablePtr_con_info        DLL_IMPORT_DATA_REF(base_GHCziStable_StablePtr_con_info)
 137
 138 #endif /* PRELUDE_H */