[project @ 1996-01-11 14:06:51 by partain]

[ghc-hetmet.git] / ghc / runtime / storage / SMcompacting.lh

diff --git a/ghc/runtime/storage/SMcompacting.lh b/ghc/runtime/storage/SMcompacting.lh
index 8740253..fdb5b55 100644 (file)
--- a/ghc/runtime/storage/SMcompacting.lh
+++ b/ghc/runtime/storage/SMcompacting.lh
@@ -1,11 +1,14 @@
 \section[SMcompacting-header]{Header file for SMcompacting}
 
 \begin{code}
-extern void LinkRoots PROTO((P_ roots[], I_ rootno));
-extern void LinkAStack PROTO((PP_ stackA, PP_ botA));
-extern void LinkBStack PROTO((P_ stackB, P_ botB));
-extern I_ CountCAFs PROTO((P_ CAFlist));
+void LinkRoots PROTO((P_ roots[], I_ rootno));
+void LinkAStack PROTO((PP_ stackA, PP_ botA));
+void LinkBStack PROTO((P_ stackB, P_ botB));
+I_ CountCAFs   PROTO((P_ CAFlist));
 
-extern void LinkCAFs PROTO((P_ CAFlist));
+void LinkCAFs  PROTO((P_ CAFlist));
+#ifdef CONCURRENT
+void LinkSparks(STG_NO_ARGS);
+#endif
 \end{code}