[project @ 1996-06-27 16:13:29 by partain]
[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
13 # endif /* _INFO_COPYING */
14
15 # if defined(_INFO_COMPACTING)
16
17 void sweepUpDeadForeignObjs PROTO((P_ ForeignObjList,
18                                    P_ base,
19                                    BitWord *bits
20                                 ));
21
22 # endif /* _INFO_COMPACTING */
23
24 void TrashMem PROTO(( P_ from, P_ to ));
25
26 # if defined(DEBUG)
27
28 void Trash_ForeignObj_Closure PROTO((P_ mptr));
29 void Validate_ForeignObj PROTO(( P_ ForeignObjList ));
30
31 void Trace_FOdies  PROTO((void));
32 void Trace_FOlives PROTO((void));
33 void Trace_FOforwarded PROTO(( P_ FOPtr, P_ newAddress ));
34
35 # endif /* DEBUG */
36
37 #endif /* !PAR */
38 \end{code}