X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fruntime%2Fstorage%2FSMcopying.lh;h=c019e48a4d72208090c8d367d45bc2e829945592;hb=063eda14b18aadc138bc27eb460e1af93b09ca9b;hp=26d801b6056dd72560e687de9f48642a35866dcf;hpb=9d4c03805bafb6b1e1d47306b6a6c591c998e517;p=ghc-hetmet.git

diff --git a/ghc/runtime/storage/SMcopying.lh b/ghc/runtime/storage/SMcopying.lh
index 26d801b..c019e48 100644
--- a/ghc/runtime/storage/SMcopying.lh
+++ b/ghc/runtime/storage/SMcopying.lh
@@ -15,8 +15,8 @@ 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}