[project @ 1998-11-26 09:17:22 by sof]
[ghc-hetmet.git] / ghc / runtime / storage / SMextn.lh
1 \section[SMextensions-header]{Header file for SMextensions}
2
3 \begin{code}
4 #ifndef PAR
5
6 void initExtensions PROTO((smInfo *sm));
7
8 # if defined(_INFO_COPYING)
9
10 void evacSPTable PROTO((smInfo *sm));
11 void reportDeadForeignObjs PROTO((StgPtr oldMPList, StgPtr new, StgPtr *newMPLust));
12 int  freeForeigns PROTO((StgPtr foList));
13
14 # endif /* _INFO_COPYING */
15
16 # if defined(_INFO_COMPACTING)
17
18 void sweepUpDeadForeignObjs PROTO((P_ ForeignObjList,
19                                    P_ base,
20                                    BitWord *bits
21                                 ));
22
23 # endif /* _INFO_COMPACTING */
24
25 void TrashMem PROTO(( P_ from, P_ to ));
26
27 # if defined(DEBUG)
28
29 void Trash_ForeignObj_Closure PROTO((P_ mptr));
30 void Validate_ForeignObj PROTO(( P_ ForeignObjList ));
31
32 void Trace_FOdies  PROTO((void));
33 void Trace_FOlives PROTO((void));
34 void Trace_FOforwarded PROTO(( P_ FOPtr, P_ newAddress ));
35
36 # endif /* DEBUG */
37
38 #endif /* !PAR */
39 \end{code}