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

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

diff --git a/ghc/runtime/storage/SMcopying.lh b/ghc/runtime/storage/SMcopying.lh
index f2fbf14..9587f72 100644 (file)
--- a/ghc/runtime/storage/SMcopying.lh
+++ b/ghc/runtime/storage/SMcopying.lh
@@ -1,11 +1,15 @@
 \section[SMcopying-header]{Header file for SMcopying}
 
 \begin{code}
-extern void SetCAFInfoTables PROTO(( P_ CAFlist ));
-extern void EvacuateRoots PROTO(( P_ roots[], I_ rootno ));
-extern void EvacuateAStack PROTO(( PP_ stackA, PP_ botA ));
-extern void EvacuateBStack PROTO(( P_ stackB, P_ botB, I_ *roots ));
-extern void Scavenge PROTO(());
+void SetCAFInfoTables  PROTO(( P_ CAFlist ));
+void EvacuateRoots     PROTO(( P_ roots[], I_ rootno ));
+void EvacuateAStack    PROTO(( PP_ stackA, PP_ botA ));
+void EvacuateBStack    PROTO(( P_ stackB, P_ botB, I_ *roots ));
+void Scavenge (STG_NO_ARGS);
+
+#ifdef CONCURRENT
+void EvacuateSparks(STG_NO_ARGS);
+#endif
 
 #ifdef GCdu
 extern void EvacuateCAFs PROTO(( P_ CAFlist ));