Implement -fwarn-dodgy-imports
[ghc-hetmet.git] / 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 DLL_IMPORT const StgInfoTable i
20 #define PRELUDE_CLOSURE(i)    extern DLL_IMPORT StgClosure 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(base_GHCziBase_True_closure);
28 PRELUDE_CLOSURE(base_GHCziBase_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_GHCziIOBase_stackOverflow_closure);
39 PRELUDE_CLOSURE(base_GHCziIOBase_heapOverflow_closure);
40 PRELUDE_CLOSURE(base_GHCziIOBase_BlockedOnDeadMVar_closure);
41 PRELUDE_CLOSURE(base_GHCziIOBase_BlockedIndefinitely_closure);
42 PRELUDE_CLOSURE(base_GHCziIOBase_NonTermination_closure);
43 PRELUDE_CLOSURE(base_GHCziIOBase_NestedAtomically_closure);
44
45 PRELUDE_CLOSURE(base_GHCziConc_ensureIOManagerIsRunning_closure);
46
47 PRELUDE_INFO(base_GHCziBase_Czh_static_info);
48 PRELUDE_INFO(base_GHCziBase_Izh_static_info);
49 PRELUDE_INFO(base_GHCziFloat_Fzh_static_info);
50 PRELUDE_INFO(base_GHCziFloat_Dzh_static_info);
51 PRELUDE_INFO(base_Addr_Azh_static_info);
52 PRELUDE_INFO(base_GHCziPtr_Ptr_static_info);
53 PRELUDE_INFO(base_GHCziPtr_FunPtr_static_info);
54 PRELUDE_INFO(base_GHCziInt_I8zh_static_info);
55 PRELUDE_INFO(base_GHCziInt_I16zh_static_info);
56 PRELUDE_INFO(base_GHCziInt_I32zh_static_info);
57 PRELUDE_INFO(base_GHCziInt_I64zh_static_info);
58 PRELUDE_INFO(base_GHCziWord_Wzh_static_info);
59 PRELUDE_INFO(base_GHCziWord_W8zh_static_info);
60 PRELUDE_INFO(base_GHCziWord_W16zh_static_info);
61 PRELUDE_INFO(base_GHCziWord_W32zh_static_info);
62 PRELUDE_INFO(base_GHCziWord_W64zh_static_info);
63 PRELUDE_INFO(base_GHCziBase_Czh_con_info);
64 PRELUDE_INFO(base_GHCziBase_Izh_con_info);
65 PRELUDE_INFO(base_GHCziFloat_Fzh_con_info);
66 PRELUDE_INFO(base_GHCziFloat_Dzh_con_info);
67 PRELUDE_INFO(base_GHCziPtr_Ptr_con_info);
68 PRELUDE_INFO(base_GHCziPtr_FunPtr_con_info);
69 PRELUDE_INFO(base_Addr_Azh_con_info);
70 PRELUDE_INFO(base_GHCziWord_Wzh_con_info);
71 PRELUDE_INFO(base_GHCziInt_I8zh_con_info);
72 PRELUDE_INFO(base_GHCziInt_I16zh_con_info);
73 PRELUDE_INFO(base_GHCziInt_I32zh_con_info);
74 PRELUDE_INFO(base_GHCziInt_I64zh_con_info);
75 PRELUDE_INFO(base_GHCziWord_W8zh_con_info);
76 PRELUDE_INFO(base_GHCziWord_W16zh_con_info);
77 PRELUDE_INFO(base_GHCziWord_W32zh_con_info);
78 PRELUDE_INFO(base_GHCziWord_W64zh_con_info);
79 PRELUDE_INFO(base_GHCziStable_StablePtr_static_info);
80 PRELUDE_INFO(base_GHCziStable_StablePtr_con_info);
81
82 #define True_closure              (&base_GHCziBase_True_closure)
83 #define False_closure             (&base_GHCziBase_False_closure)
84 #define unpackCString_closure     (&base_GHCziPack_unpackCString_closure)
85 #define runFinalizerBatch_closure (&base_GHCziWeak_runFinalizzerBatch_closure)
86 #define mainIO_closure            (&ZCMain_main_closure)
87
88 #define stackOverflow_closure     (&base_GHCziIOBase_stackOverflow_closure)
89 #define heapOverflow_closure      (&base_GHCziIOBase_heapOverflow_closure)
90 #define BlockedOnDeadMVar_closure (&base_GHCziIOBase_BlockedOnDeadMVar_closure)
91 #define BlockedIndefinitely_closure (&base_GHCziIOBase_BlockedIndefinitely_closure)
92 #define NonTermination_closure    (&base_GHCziIOBase_NonTermination_closure)
93 #define NestedAtomically_closure  (&base_GHCziIOBase_NestedAtomically_closure)
94
95 #define Czh_static_info           (&base_GHCziBase_Czh_static_info)
96 #define Fzh_static_info           (&base_GHCziFloat_Fzh_static_info)
97 #define Dzh_static_info           (&base_GHCziFloat_Dzh_static_info)
98 #define Azh_static_info           (&base_Addr_Azh_static_info)
99 #define Izh_static_info           (&base_GHCziBase_Izh_static_info)
100 #define I8zh_static_info          (&base_GHCziInt_I8zh_static_info)
101 #define I16zh_static_info         (&base_GHCziInt_I16zh_static_info)
102 #define I32zh_static_info         (&base_GHCziInt_I32zh_static_info)
103 #define I64zh_static_info         (&base_GHCziInt_I64zh_static_info)
104 #define Wzh_static_info           (&base_GHCziWord_Wzh_static_info)
105 #define W8zh_static_info          (&base_GHCziWord_W8zh_static_info)
106 #define W16zh_static_info         (&base_GHCziWord_W16zh_static_info)
107 #define W32zh_static_info         (&base_GHCziWord_W32zh_static_info)
108 #define W64zh_static_info         (&base_GHCziWord_W64zh_static_info)
109 #define Ptr_static_info           (&base_GHCziPtr_Ptr_static_info)
110 #define FunPtr_static_info        (&base_GHCziPtr_FunPtr_static_info)
111 #define Czh_con_info              (&base_GHCziBase_Czh_con_info)
112 #define Izh_con_info              (&base_GHCziBase_Izh_con_info)
113 #define Fzh_con_info              (&base_GHCziFloat_Fzh_con_info)
114 #define Dzh_con_info              (&base_GHCziFloat_Dzh_con_info)
115 #define Azh_con_info              (&base_Addr_Azh_con_info)
116 #define Wzh_con_info              (&base_GHCziWord_Wzh_con_info)
117 #define W8zh_con_info             (&base_GHCziWord_W8zh_con_info)
118 #define W16zh_con_info            (&base_GHCziWord_W16zh_con_info)
119 #define W32zh_con_info            (&base_GHCziWord_W32zh_con_info)
120 #define W64zh_con_info            (&base_GHCziWord_W64zh_con_info)
121 #define I8zh_con_info             (&base_GHCziInt_I8zh_con_info)
122 #define I16zh_con_info            (&base_GHCziInt_I16zh_con_info)
123 #define I32zh_con_info            (&base_GHCziInt_I32zh_con_info)
124 #define I64zh_con_info            (&base_GHCziInt_I64zh_con_info)
125 #define I64zh_con_info            (&base_GHCziInt_I64zh_con_info)
126 #define Ptr_con_info              (&base_GHCziPtr_Ptr_con_info)
127 #define FunPtr_con_info           (&base_GHCziPtr_FunPtr_con_info)
128 #define StablePtr_static_info     (&base_GHCziStable_StablePtr_static_info)
129 #define StablePtr_con_info        (&base_GHCziStable_StablePtr_con_info)
130
131 #endif /* PRELUDE_H */