[project @ 1996-06-27 16:13:29 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..26d801b 100644 (file)
--- a/ghc/runtime/storage/SMcopying.lh
+++ b/ghc/runtime/storage/SMcopying.lh
@@ -7,6 +7,9 @@ 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