[project @ 1996-07-19 18:36:04 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..c019e48 100644 (file)
--- a/ghc/runtime/storage/SMcopying.lh
+++ b/ghc/runtime/storage/SMcopying.lh
@@ -1,15 +1,22 @@
 \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 GRAN
+void EvacuateEvents(STG_NO_ARGS);
+#endif
+#ifdef CONCURRENT
+void EvacuateSparks(STG_NO_ARGS);
+#endif
 
 #ifdef GCdu
-extern void EvacuateCAFs PROTO(( P_ CAFlist ));
+void EvacuateCAFs PROTO(( P_ CAFlist ));
 #else /* !GCdu */
-extern void EvacAndScavengeCAFs PROTO(( P_ CAFlist, I_ *extra_words, I_ *roots ));
+void EvacAndScavengeCAFs PROTO(( P_ CAFlist, I_ *extra_words, I_ *roots ));
 #endif /* !GCdu */
 \end{code}