[project @ 1996-01-08 20:28:12 by partain]
[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(USE_COST_CENTRES)
49 extern F_ _PRStart_PI(STG_NO_ARGS);
50 #endif
51
52 #ifdef PAR
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 #else
70 extern F_ _PRStart_MallocPtr(STG_NO_ARGS);
71 #endif /* PAR */
72
73 #if defined(CONCURRENT)
74 extern F_ _PRStart_StkO(STG_NO_ARGS);
75 extern F_ _PRStart_TSO(STG_NO_ARGS);
76 extern F_ _PRStart_BQ(STG_NO_ARGS);
77 #endif
78
79 extern F_ _PRStart_Caf(STG_NO_ARGS);
80
81 extern F_ _PRStart_BH(STG_NO_ARGS);
82 extern F_ _PRStart_Ind(STG_NO_ARGS);
83 extern F_ _PRStart_Const(STG_NO_ARGS);
84 extern F_ _PRStart_CharLike(STG_NO_ARGS);
85 extern F_ _PRStart_IntLike(STG_NO_ARGS);
86 extern F_ _PRStart_Static(STG_NO_ARGS);
87
88 extern F_ _PRIn_0(STG_NO_ARGS);
89 extern F_ _PRIn_1(STG_NO_ARGS);
90 extern F_ _PRIn_2(STG_NO_ARGS);
91 extern F_ _PRIn_3(STG_NO_ARGS);
92 extern F_ _PRIn_4(STG_NO_ARGS);
93 extern F_ _PRIn_5(STG_NO_ARGS);
94 extern F_ _PRIn_6(STG_NO_ARGS);
95 extern F_ _PRIn_7(STG_NO_ARGS);
96 extern F_ _PRIn_8(STG_NO_ARGS);
97 extern F_ _PRIn_9(STG_NO_ARGS);
98 extern F_ _PRIn_10(STG_NO_ARGS);
99 extern F_ _PRIn_11(STG_NO_ARGS);
100 extern F_ _PRIn_12(STG_NO_ARGS);
101
102 extern F_ _PRInLast_1(STG_NO_ARGS);
103 extern F_ _PRInLast_2(STG_NO_ARGS);
104 extern F_ _PRInLast_3(STG_NO_ARGS);
105 extern F_ _PRInLast_4(STG_NO_ARGS);
106 extern F_ _PRInLast_5(STG_NO_ARGS);
107 extern F_ _PRInLast_6(STG_NO_ARGS);
108 extern F_ _PRInLast_7(STG_NO_ARGS);
109 extern F_ _PRInLast_8(STG_NO_ARGS);
110 extern F_ _PRInLast_9(STG_NO_ARGS);
111 extern F_ _PRInLast_10(STG_NO_ARGS);
112 extern F_ _PRInLast_11(STG_NO_ARGS);
113 extern F_ _PRInLast_12(STG_NO_ARGS);
114
115 extern F_ _PRIn_I(STG_NO_ARGS);
116 extern F_ _PRIn_I_Dyn(STG_NO_ARGS);
117 extern F_ _PRIn_I_Tuple(STG_NO_ARGS);
118 extern F_ _PRIn_I_MuTuple(STG_NO_ARGS);
119
120 #ifdef PAR
121 extern F_ _PRIn_BF(STG_NO_ARGS);
122 extern F_ _PRIn_RBH_0(STG_NO_ARGS);
123 extern F_ _PRIn_RBH_1(STG_NO_ARGS);
124 extern F_ _PRIn_RBH_2(STG_NO_ARGS);
125 extern F_ _PRIn_RBH_3(STG_NO_ARGS);
126 extern F_ _PRIn_RBH_4(STG_NO_ARGS);
127 extern F_ _PRIn_RBH_5(STG_NO_ARGS);
128 extern F_ _PRIn_RBH_6(STG_NO_ARGS);
129 extern F_ _PRIn_RBH_7(STG_NO_ARGS);
130 extern F_ _PRIn_RBH_8(STG_NO_ARGS);
131 extern F_ _PRIn_RBH_9(STG_NO_ARGS);
132 extern F_ _PRIn_RBH_10(STG_NO_ARGS);
133 extern F_ _PRIn_RBH_11(STG_NO_ARGS);
134 extern F_ _PRIn_RBH_12(STG_NO_ARGS);
135 extern F_ _PRIn_RBH_I(STG_NO_ARGS);
136 #else
137 extern F_ _PRIn_I_MallocPtr(STG_NO_ARGS);
138 #endif /* PAR */
139
140 extern F_ _PRIn_Error(STG_NO_ARGS);
141
142 #if defined(USE_COST_CENTRES)
143 extern F_ _PRIn_PI(STG_NO_ARGS);
144 #endif
145
146 #if defined(CONCURRENT)
147 extern F_ _PRIn_StkO(STG_NO_ARGS);
148 extern F_ _PRIn_TSO(STG_NO_ARGS);
149 extern F_ _PRIn_BQ(STG_NO_ARGS);
150 #endif
151
152 \end{code}
153
154 End of multi-slurp protection:
155 \begin{code}
156 #endif /* SMMARK_H */
157 \end{code}