X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FWeak.h;h=9b230f94de1666b52f2cedc0a194509054048058;hb=cd47700887365ca2a6af17d03e731efce65cf2ac;hp=8fccae2a63201bcb7278c96e74c5275db05efd5c;hpb=348e8f801ab659d84acfb49a5c7bbac63646e73a;p=ghc-hetmet.git diff --git a/rts/Weak.h b/rts/Weak.h index 8fccae2..9b230f9 100644 --- a/rts/Weak.h +++ b/rts/Weak.h @@ -11,11 +11,17 @@ #include "Capability.h" +#include "BeginPrivate.h" + 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 +#include "EndPrivate.h" + +#endif /* WEAK_H */ +