RTS tidyup sweep, first phase

[ghc-hetmet.git] / rts / Weak.h

diff --git a/rts/Weak.h b/rts/Weak.h
index ba8c1ca..4f60bf9 100644 (file)
--- a/rts/Weak.h
+++ b/rts/Weak.h
@@ -11,7 +11,13 @@
 
 #include "Capability.h"
 
+extern rtsBool running_finalizers;
+extern StgWeak * weak_ptr_list;
+
+void runCFinalizer(void *fn, void *ptr, void *env, StgWord flag);
+void runAllCFinalizers(StgWeak *w);
 void scheduleFinalizers(Capability *cap, StgWeak *w);
 void markWeakList(void);
 
-#endif
+#endif /* WEAK_H */
+