[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 9587f72..c019e48 100644 (file)
--- a/ghc/runtime/storage/SMcopying.lh
+++ b/ghc/runtime/storage/SMcopying.lh
@@ -7,13 +7,16 @@ 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}