blob: 35d62b23107ad3cd6a44e1895844c4d3e2356e6c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
/* -----------------------------------------------------------------------------
*
* (c) The GHC Team, 1998-2005
*
* Prelude identifiers that we sometimes need to refer to in the RTS.
*
* ---------------------------------------------------------------------------*/
#ifndef PRELUDE_H
#define PRELUDE_H
/* These definitions are required by the RTS .cmm files too, so we
* need declarations that we can #include into the generated .hc files.
*/
#if IN_STG_CODE
#define PRELUDE_INFO(i) extern W_(i)[]
#define PRELUDE_CLOSURE(i) extern W_(i)[]
#else
#define PRELUDE_INFO(i) extern DLL_IMPORT const StgInfoTable i
#define PRELUDE_CLOSURE(i) extern DLL_IMPORT StgClosure i
#endif
/* Define canonical names so we can abstract away from the actual
* modules these names are defined in.
*/
PRELUDE_CLOSURE(GHCziBase_True_closure);
PRELUDE_CLOSURE(GHCziBase_False_closure);
PRELUDE_CLOSURE(GHCziPack_unpackCString_closure);
PRELUDE_CLOSURE(GHCziWeak_runFinalizzerBatch_closure);
#ifdef IN_STG_CODE
extern W_ ZCMain_main_closure[];
#else
extern StgClosure ZCMain_main_closure;
#endif
PRELUDE_CLOSURE(GHCziIOBase_stackOverflow_closure);
PRELUDE_CLOSURE(GHCziIOBase_heapOverflow_closure);
PRELUDE_CLOSURE(GHCziIOBase_BlockedOnDeadMVar_closure);
PRELUDE_CLOSURE(GHCziIOBase_BlockedIndefinitely_closure);
PRELUDE_CLOSURE(GHCziIOBase_NonTermination_closure);
PRELUDE_CLOSURE(GHCziIOBase_NestedAtomically_closure);
#if !defined(mingw32_HOST_OS)
PRELUDE_CLOSURE(GHCziConc_ensureIOManagerIsRunning_closure);
#endif
PRELUDE_INFO(GHCziBase_Czh_static_info);
PRELUDE_INFO(GHCziBase_Izh_static_info);
PRELUDE_INFO(GHCziFloat_Fzh_static_info);
PRELUDE_INFO(GHCziFloat_Dzh_static_info);
PRELUDE_INFO(Addr_Azh_static_info);
PRELUDE_INFO(GHCziPtr_Ptr_static_info);
PRELUDE_INFO(GHCziPtr_FunPtr_static_info);
PRELUDE_INFO(GHCziInt_I8zh_static_info);
PRELUDE_INFO(GHCziInt_I16zh_static_info);
PRELUDE_INFO(GHCziInt_I32zh_static_info);
PRELUDE_INFO(GHCziInt_I64zh_static_info);
PRELUDE_INFO(GHCziWord_Wzh_static_info);
PRELUDE_INFO(GHCziWord_W8zh_static_info);
PRELUDE_INFO(GHCziWord_W16zh_static_info);
PRELUDE_INFO(GHCziWord_W32zh_static_info);
PRELUDE_INFO(GHCziWord_W64zh_static_info);
PRELUDE_INFO(GHCziBase_Czh_con_info);
PRELUDE_INFO(GHCziBase_Izh_con_info);
PRELUDE_INFO(GHCziFloat_Fzh_con_info);
PRELUDE_INFO(GHCziFloat_Dzh_con_info);
PRELUDE_INFO(GHCziPtr_Ptr_con_info);
PRELUDE_INFO(GHCziPtr_FunPtr_con_info);
PRELUDE_INFO(Addr_Azh_con_info);
PRELUDE_INFO(GHCziWord_Wzh_con_info);
PRELUDE_INFO(GHCziInt_I8zh_con_info);
PRELUDE_INFO(GHCziInt_I16zh_con_info);
PRELUDE_INFO(GHCziInt_I32zh_con_info);
PRELUDE_INFO(GHCziInt_I64zh_con_info);
PRELUDE_INFO(GHCziWord_W8zh_con_info);
PRELUDE_INFO(GHCziWord_W16zh_con_info);
PRELUDE_INFO(GHCziWord_W32zh_con_info);
PRELUDE_INFO(GHCziWord_W64zh_con_info);
PRELUDE_INFO(GHCziStable_StablePtr_static_info);
PRELUDE_INFO(GHCziStable_StablePtr_con_info);
#define True_closure (&GHCziBase_True_closure)
#define False_closure (&GHCziBase_False_closure)
#define unpackCString_closure (&GHCziPack_unpackCString_closure)
#define runFinalizerBatch_closure (&GHCziWeak_runFinalizzerBatch_closure)
#define mainIO_closure (&ZCMain_main_closure)
#define stackOverflow_closure (&GHCziIOBase_stackOverflow_closure)
#define heapOverflow_closure (&GHCziIOBase_heapOverflow_closure)
#define BlockedOnDeadMVar_closure (&GHCziIOBase_BlockedOnDeadMVar_closure)
#define BlockedIndefinitely_closure (&GHCziIOBase_BlockedIndefinitely_closure)
#define NonTermination_closure (&GHCziIOBase_NonTermination_closure)
#define NestedAtomically_closure (&GHCziIOBase_NestedAtomically_closure)
#define Czh_static_info (&GHCziBase_Czh_static_info)
#define Fzh_static_info (&GHCziFloat_Fzh_static_info)
#define Dzh_static_info (&GHCziFloat_Dzh_static_info)
#define Azh_static_info (&Addr_Azh_static_info)
#define Izh_static_info (&GHCziBase_Izh_static_info)
#define I8zh_static_info (&GHCziInt_I8zh_static_info)
#define I16zh_static_info (&GHCziInt_I16zh_static_info)
#define I32zh_static_info (&GHCziInt_I32zh_static_info)
#define I64zh_static_info (&GHCziInt_I64zh_static_info)
#define Wzh_static_info (&GHCziWord_Wzh_static_info)
#define W8zh_static_info (&GHCziWord_W8zh_static_info)
#define W16zh_static_info (&GHCziWord_W16zh_static_info)
#define W32zh_static_info (&GHCziWord_W32zh_static_info)
#define W64zh_static_info (&GHCziWord_W64zh_static_info)
#define Ptr_static_info (&GHCziPtr_Ptr_static_info)
#define FunPtr_static_info (&GHCziPtr_FunPtr_static_info)
#define Czh_con_info (&GHCziBase_Czh_con_info)
#define Izh_con_info (&GHCziBase_Izh_con_info)
#define Fzh_con_info (&GHCziFloat_Fzh_con_info)
#define Dzh_con_info (&GHCziFloat_Dzh_con_info)
#define Azh_con_info (&Addr_Azh_con_info)
#define Wzh_con_info (&GHCziWord_Wzh_con_info)
#define W8zh_con_info (&GHCziWord_W8zh_con_info)
#define W16zh_con_info (&GHCziWord_W16zh_con_info)
#define W32zh_con_info (&GHCziWord_W32zh_con_info)
#define W64zh_con_info (&GHCziWord_W64zh_con_info)
#define I8zh_con_info (&GHCziInt_I8zh_con_info)
#define I16zh_con_info (&GHCziInt_I16zh_con_info)
#define I32zh_con_info (&GHCziInt_I32zh_con_info)
#define I64zh_con_info (&GHCziInt_I64zh_con_info)
#define I64zh_con_info (&GHCziInt_I64zh_con_info)
#define Ptr_con_info (&GHCziPtr_Ptr_con_info)
#define FunPtr_con_info (&GHCziPtr_FunPtr_con_info)
#define StablePtr_static_info (&GHCziStable_StablePtr_static_info)
#define StablePtr_con_info (&GHCziStable_StablePtr_con_info)
#endif /* PRELUDE_H */
|
