1 /* -----------------------------------------------------------------------------
2 * $Id: Prelude.h,v 1.10 1999/12/20 10:34:33 simonpj Exp $
4 * (c) The GHC Team, 1998-1999
6 * Prelude identifiers that we sometimes need to refer to in the RTS.
8 * ---------------------------------------------------------------------------*/
16 extern DLL_IMPORT const StgClosure PrelBase_Z91Z93_static_closure;
17 extern DLL_IMPORT const StgClosure PrelBase_Z40Z41_static_closure;
18 extern DLL_IMPORT const StgClosure PrelBase_True_static_closure;
19 extern DLL_IMPORT const StgClosure PrelBase_False_static_closure;
20 extern DLL_IMPORT const StgClosure PrelPack_unpackCString_closure;
21 extern DLL_IMPORT const StgClosure PrelException_stackOverflow_closure;
22 extern DLL_IMPORT const StgClosure PrelException_heapOverflow_closure;
23 extern DLL_IMPORT const StgClosure PrelException_NonTermination_static_closure;
24 extern const StgClosure PrelMain_mainIO_closure;
26 extern DLL_IMPORT const StgInfoTable PrelBase_Czh_static_info;
27 extern DLL_IMPORT const StgInfoTable PrelBase_Izh_static_info;
28 extern DLL_IMPORT const StgInfoTable PrelFloat_Fzh_static_info;
29 extern DLL_IMPORT const StgInfoTable PrelFloat_Dzh_static_info;
30 extern DLL_IMPORT const StgInfoTable PrelAddr_Azh_static_info;
31 extern DLL_IMPORT const StgInfoTable PrelAddr_Wzh_static_info;
32 extern DLL_IMPORT const StgInfoTable PrelBase_Czh_con_info;
33 extern DLL_IMPORT const StgInfoTable PrelBase_Izh_con_info;
34 extern DLL_IMPORT const StgInfoTable PrelFloat_Fzh_con_info;
35 extern DLL_IMPORT const StgInfoTable PrelFloat_Dzh_con_info;
36 extern DLL_IMPORT const StgInfoTable PrelAddr_Azh_con_info;
37 extern DLL_IMPORT const StgInfoTable PrelAddr_Wzh_con_info;
38 extern DLL_IMPORT const StgInfoTable PrelAddr_I64zh_con_info;
39 extern DLL_IMPORT const StgInfoTable PrelAddr_W64zh_con_info;
40 extern DLL_IMPORT const StgInfoTable PrelStable_StablePtr_static_info;
41 extern DLL_IMPORT const StgInfoTable PrelStable_StablePtr_con_info;
43 /* Define canonical names so we can abstract away from the actual
44 * module these names are defined in.
47 #define Nil_closure PrelBase_ZMZN_static_closure
48 #define Unit_closure PrelBase_Z0T_static_closure
49 #define True_closure PrelBase_True_static_closure
50 #define False_closure PrelBase_False_static_closure
51 #define stackOverflow_closure PrelException_stackOverflow_closure
52 #define heapOverflow_closure PrelException_heapOverflow_closure
53 #define NonTermination_closure PrelException_NonTermination_static_closure
54 #define Czh_static_info PrelBase_Czh_static_info
55 #define Izh_static_info PrelBase_Izh_static_info
56 #define Fzh_static_info PrelFloat_Fzh_static_info
57 #define Dzh_static_info PrelFloat_Dzh_static_info
58 #define Azh_static_info PrelAddr_Azh_static_info
59 #define Wzh_static_info PrelAddr_Wzh_static_info
60 #define Czh_con_info PrelBase_Czh_con_info
61 #define Izh_con_info PrelBase_Izh_con_info
62 #define Fzh_con_info PrelFloat_Fzh_con_info
63 #define Dzh_con_info PrelFloat_Dzh_con_info
64 #define Azh_con_info PrelAddr_Azh_con_info
65 #define Wzh_con_info PrelAddr_Wzh_con_info
66 #define W64zh_con_info PrelAddr_W64zh_con_info
67 #define I64zh_con_info PrelAddr_I64zh_con_info
68 #define StablePtr_static_info PrelStable_StablePtr_static_info
69 #define StablePtr_con_info PrelStable_StablePtr_con_info
71 #define mainIO_closure PrelMain_mainIO_closure
72 #define unpackCString_closure PrelPack_unpackCString_closure
74 #else /* INTERPRETER, I guess */
76 extern const StgInfoTable Czh_con_info;
77 extern const StgInfoTable Izh_con_info;
78 extern const StgInfoTable I64zh_con_info;
79 extern const StgInfoTable Fzh_con_info;
80 extern const StgInfoTable Dzh_con_info;
81 extern const StgInfoTable Azh_con_info;
82 extern const StgInfoTable Wzh_con_info;
83 extern const StgInfoTable StablePtr_con_info;
85 extern const StgInfoTable Czh_static_info;
86 extern const StgInfoTable Izh_static_info;
87 extern const StgInfoTable I64zh_static_info;
88 extern const StgInfoTable Fzh_static_info;
89 extern const StgInfoTable Dzh_static_info;
90 extern const StgInfoTable Azh_static_info;
91 extern const StgInfoTable Wzh_static_info;
92 extern const StgInfoTable StablePtr_static_info;
94 #define W64zh_con_info I64zh_con_info
95 #define W64zh_static_info I64zh_con_info
99 #endif /* COMPILING_RTS */
101 #endif /* PRELUDE_H */