X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FWeak.h;h=8fccae2a63201bcb7278c96e74c5275db05efd5c;hb=0506cb7ec75321eaacc6c279d01d82368d2ca125;hp=cf93b4df9ee4733815a712434adf369f117ec77b;hpb=6c095bfa3c8c81b52ad92853acd326453d320d7b;p=ghc-hetmet.git diff --git a/rts/Weak.h b/rts/Weak.h index cf93b4d..8fccae2 100644 --- a/rts/Weak.h +++ b/rts/Weak.h @@ -11,6 +11,8 @@ #include "Capability.h" +extern rtsBool running_finalizers; + void runCFinalizer(StgVoid *fn, StgVoid *ptr, StgVoid *env, StgWord flag); void runAllCFinalizers(StgWeak *w); void scheduleFinalizers(Capability *cap, StgWeak *w);