summaryrefslogtreecommitdiff
path: root/ghc/runtime/storage/SMextn.lh
blob: 4bac2bca6232d6b2ee49584b3086ba89cd72853a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
\section[SMextensions-header]{Header file for SMextensions}

\begin{code}
#ifndef PAR

void initExtensions PROTO((smInfo *sm));

# if defined(_INFO_COPYING)

void evacSPTable PROTO((smInfo *sm));
void reportDeadForeignObjs PROTO((StgPtr oldMPList, StgPtr new, StgPtr *newMPLust));

# endif /* _INFO_COPYING */

# if defined(_INFO_COMPACTING)

void sweepUpDeadForeignObjs PROTO((P_ ForeignObjList,
				   P_ base,
				   BitWord *bits
				));

# endif /* _INFO_COMPACTING */

void TrashMem PROTO(( P_ from, P_ to ));

# if defined(DEBUG)

void Trash_ForeignObj_Closure PROTO((P_ mptr));
void Validate_ForeignObj PROTO(( P_ ForeignObjList ));

void Trace_FOdies  PROTO((void));
void Trace_FOlives PROTO((void));
void Trace_FOforwarded PROTO(( P_ FOPtr, P_ newAddress ));

# endif /* DEBUG */

#endif /* !PAR */
\end{code}