[project @ 1996-01-08 20:28:12 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 extern void initExtensions PROTO((smInfo *sm));
7
8 #if defined(_INFO_COPYING)
9
10 extern void evacSPTable PROTO((smInfo *sm));
11 extern void reportDeadMallocPtrs PROTO((StgPtr oldMPList, StgPtr new, StgPtr *newMPLust));
12
13 #endif /* _INFO_COPYING */
14
15 #if defined(_INFO_COMPACTING)
16
17 extern void sweepUpDeadMallocPtrs PROTO((
18                                          P_ MallocPtrList,
19                                          P_ base,
20                                          BitWord *bits
21                                          ));
22
23 #endif /* _INFO_COMPACTING */
24
25 extern void TrashMem PROTO(( P_ from, P_ to ));
26
27 #if defined(DEBUG)
28
29 extern void Trash_MallocPtr_Closure PROTO((P_ mptr));
30 extern void Validate_MallocPtrList PROTO(( P_ MallocPtrList ));
31
32 extern void Trace_MPdies  PROTO((void));
33 extern void Trace_MPlives PROTO((void));
34 extern void Trace_MPforwarded PROTO(( P_ MPPtr, P_ newAddress ));
35
36
37 #endif /* DEBUG */
38
39 #endif /* !PAR */
40 \end{code}