X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FWeak.h;h=a931b054cc342beb16bcb8fec911b7e0b13a7338;hb=661c97c65e5fa47177502e592bb763f752b487ac;hp=8fccae2a63201bcb7278c96e74c5275db05efd5c;hpb=348e8f801ab659d84acfb49a5c7bbac63646e73a;p=ghc-hetmet.git

diff --git a/rts/Weak.h b/rts/Weak.h
index 8fccae2..a931b05 100644
--- a/rts/Weak.h
+++ b/rts/Weak.h
@@ -11,11 +11,17 @@
 
 #include "Capability.h"
 
+BEGIN_RTS_PRIVATE
+
 extern rtsBool running_finalizers;
+extern StgWeak * weak_ptr_list;
 
-void runCFinalizer(StgVoid *fn, StgVoid *ptr, StgVoid *env, StgWord flag);
+void runCFinalizer(void *fn, void *ptr, void *env, StgWord flag);
 void runAllCFinalizers(StgWeak *w);
 void scheduleFinalizers(Capability *cap, StgWeak *w);
 void markWeakList(void);
 
-#endif
+END_RTS_PRIVATE
+
+#endif /* WEAK_H */
+