[project @ 1998-11-26 09:17:22 by sof]
[ghc-hetmet.git] / ghc / includes / SMmark.lh
1 %************************************************************************
2 %*                                                                      *
3 \section[SMmark]{Code labels for pointer-reversal marking}
4 %*                                                                      *
5 %************************************************************************
6 Multi-slurp protection:
7 \begin{code}
8 #ifndef SMMARK_H
9 #define SMMARK_H
10 \end{code}
11
12 Pointer Reversal Marking:
13 \begin{code}
14 extern F_ _PRStart_0(STG_NO_ARGS);
15 extern F_ _PRStart_1(STG_NO_ARGS);
16 extern F_ _PRStart_2(STG_NO_ARGS);
17 extern F_ _PRStart_3(STG_NO_ARGS);
18 extern F_ _PRStart_4(STG_NO_ARGS);
19 extern F_ _PRStart_5(STG_NO_ARGS);
20 extern F_ _PRStart_6(STG_NO_ARGS);
21 extern F_ _PRStart_7(STG_NO_ARGS);
22 extern F_ _PRStart_8(STG_NO_ARGS);
23 extern F_ _PRStart_9(STG_NO_ARGS);
24 extern F_ _PRStart_10(STG_NO_ARGS);
25 extern F_ _PRStart_11(STG_NO_ARGS);
26 extern F_ _PRStart_12(STG_NO_ARGS);
27
28 extern F_ _PRStartSelector_0(STG_NO_ARGS);
29 extern F_ _PRStartSelector_1(STG_NO_ARGS);
30 extern F_ _PRStartSelector_2(STG_NO_ARGS);
31 extern F_ _PRStartSelector_3(STG_NO_ARGS);
32 extern F_ _PRStartSelector_4(STG_NO_ARGS);
33 extern F_ _PRStartSelector_5(STG_NO_ARGS);
34 extern F_ _PRStartSelector_6(STG_NO_ARGS);
35 extern F_ _PRStartSelector_7(STG_NO_ARGS);
36 extern F_ _PRStartSelector_8(STG_NO_ARGS);
37 extern F_ _PRStartSelector_9(STG_NO_ARGS);
38 extern F_ _PRStartSelector_10(STG_NO_ARGS);
39 extern F_ _PRStartSelector_11(STG_NO_ARGS);
40 extern F_ _PRStartSelector_12(STG_NO_ARGS);
41
42 extern F_ _PRStart_N(STG_NO_ARGS);
43 extern F_ _PRStart_Dyn(STG_NO_ARGS);
44 extern F_ _PRStart_Tuple(STG_NO_ARGS);
45 extern F_ _PRStart_Data(STG_NO_ARGS);
46 extern F_ _PRStart_MuTuple(STG_NO_ARGS);
47
48 #if defined(PROFILING) || defined(TICKY_TICKY)
49 extern F_ _PRStart_PI(STG_NO_ARGS);
50 #endif
51
52 #if defined(PAR) || defined(GRAN)
53 extern F_ _PRStart_RBH_0(STG_NO_ARGS);
54 extern F_ _PRStart_RBH_1(STG_NO_ARGS);
55 extern F_ _PRStart_RBH_2(STG_NO_ARGS);
56 extern F_ _PRStart_RBH_3(STG_NO_ARGS);
57 extern F_ _PRStart_RBH_4(STG_NO_ARGS);
58 extern F_ _PRStart_RBH_5(STG_NO_ARGS);
59 extern F_ _PRStart_RBH_6(STG_NO_ARGS);
60 extern F_ _PRStart_RBH_7(STG_NO_ARGS);
61 extern F_ _PRStart_RBH_8(STG_NO_ARGS);
62 extern F_ _PRStart_RBH_9(STG_NO_ARGS);
63 extern F_ _PRStart_RBH_10(STG_NO_ARGS);
64 extern F_ _PRStart_RBH_11(STG_NO_ARGS);
65 extern F_ _PRStart_RBH_12(STG_NO_ARGS);
66 extern F_ _PRStart_RBH_N(STG_NO_ARGS);
67 extern F_ _PRStart_FetchMe(STG_NO_ARGS);
68 extern F_ _PRStart_BF(STG_NO_ARGS);
69 #endif /* PAR || GRAN */
70
71 #if !defined(PAR) || defined(GRAN)
72 extern F_ _PRStart_ForeignObj(STG_NO_ARGS);
73 #endif
74
75 #if defined(CONCURRENT)
76 extern F_ _PRStart_StkO(STG_NO_ARGS);
77 extern F_ _PRStart_TSO(STG_NO_ARGS);
78 extern F_ _PRStart_BQ(STG_NO_ARGS);
79 #endif
80
81 extern F_ _PRStart_Caf(STG_NO_ARGS);
82
83 extern F_ _PRStart_BH(STG_NO_ARGS);
84 extern F_ _PRStart_Ind(STG_NO_ARGS);
85 extern F_ _PRStart_Const(STG_NO_ARGS);
86 extern F_ _PRStart_CharLike(STG_NO_ARGS);
87 extern F_ _PRStart_IntLike(STG_NO_ARGS);
88 extern F_ _PRStart_Static(STG_NO_ARGS);
89
90 extern F_ _PRIn_0(STG_NO_ARGS);
91 extern F_ _PRIn_1(STG_NO_ARGS);
92 extern F_ _PRIn_2(STG_NO_ARGS);
93 extern F_ _PRIn_3(STG_NO_ARGS);
94 extern F_ _PRIn_4(STG_NO_ARGS);
95 extern F_ _PRIn_5(STG_NO_ARGS);
96 extern F_ _PRIn_6(STG_NO_ARGS);
97 extern F_ _PRIn_7(STG_NO_ARGS);
98 extern F_ _PRIn_8(STG_NO_ARGS);
99 extern F_ _PRIn_9(STG_NO_ARGS);
100 extern F_ _PRIn_10(STG_NO_ARGS);
101 extern F_ _PRIn_11(STG_NO_ARGS);
102 extern F_ _PRIn_12(STG_NO_ARGS);
103
104 extern F_ _PRInLast_1(STG_NO_ARGS);
105 extern F_ _PRInLast_2(STG_NO_ARGS);
106 extern F_ _PRInLast_3(STG_NO_ARGS);
107 extern F_ _PRInLast_4(STG_NO_ARGS);
108 extern F_ _PRInLast_5(STG_NO_ARGS);
109 extern F_ _PRInLast_6(STG_NO_ARGS);
110 extern F_ _PRInLast_7(STG_NO_ARGS);
111 extern F_ _PRInLast_8(STG_NO_ARGS);
112 extern F_ _PRInLast_9(STG_NO_ARGS);
113 extern F_ _PRInLast_10(STG_NO_ARGS);
114 extern F_ _PRInLast_11(STG_NO_ARGS);
115 extern F_ _PRInLast_12(STG_NO_ARGS);
116
117 extern F_ _PRIn_I(STG_NO_ARGS);
118 extern F_ _PRIn_I_Dyn(STG_NO_ARGS);
119 extern F_ _PRIn_I_Tuple(STG_NO_ARGS);
120 extern F_ _PRIn_I_MuTuple(STG_NO_ARGS);
121
122 #if defined(PAR) || defined(GRAN)
123 extern F_ _PRIn_BF(STG_NO_ARGS);
124 extern F_ _PRIn_RBH_0(STG_NO_ARGS);
125 extern F_ _PRIn_RBH_1(STG_NO_ARGS);
126 extern F_ _PRIn_RBH_2(STG_NO_ARGS);
127 extern F_ _PRIn_RBH_3(STG_NO_ARGS);
128 extern F_ _PRIn_RBH_4(STG_NO_ARGS);
129 extern F_ _PRIn_RBH_5(STG_NO_ARGS);
130 extern F_ _PRIn_RBH_6(STG_NO_ARGS);
131 extern F_ _PRIn_RBH_7(STG_NO_ARGS);
132 extern F_ _PRIn_RBH_8(STG_NO_ARGS);
133 extern F_ _PRIn_RBH_9(STG_NO_ARGS);
134 extern F_ _PRIn_RBH_10(STG_NO_ARGS);
135 extern F_ _PRIn_RBH_11(STG_NO_ARGS);
136 extern F_ _PRIn_RBH_12(STG_NO_ARGS);
137 extern F_ _PRIn_RBH_I(STG_NO_ARGS);
138 #endif /* PAR || GRAN */
139
140 #if !defined(PAR) || defined(GRAN)
141 extern F_ _PRIn_I_ForeignObj(STG_NO_ARGS);
142 #endif
143
144 extern F_ _PRIn_Error(STG_NO_ARGS);
145
146 #if defined(PROFILING) || defined(TICKY_TICKY)
147 extern F_ _PRIn_PI(STG_NO_ARGS);
148 #endif
149
150 #if defined(CONCURRENT)
151 extern F_ _PRIn_StkO(STG_NO_ARGS);
152 extern F_ _PRIn_TSO(STG_NO_ARGS);
153 extern F_ _PRIn_BQ(STG_NO_ARGS);
154 #endif
155
156 \end{code}
157
158 End of multi-slurp protection:
159 \begin{code}
160 #endif /* SMMARK_H */
161 \end{code}