X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FWeak.h;h=2c831d830e1408168776d2aceab4ba0aae984e7d;hb=7d7c187b4a12f1bb350e85cdb0115e19537cc704;hp=ba8c1ca913acdfab16ae7a3bfa15d48faa2d4133;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git diff --git a/rts/Weak.h b/rts/Weak.h index ba8c1ca..2c831d8 100644 --- a/rts/Weak.h +++ b/rts/Weak.h @@ -11,7 +11,17 @@ #include "Capability.h" +#pragma GCC visibility push(hidden) + +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 +#pragma GCC visibility pop + +#endif /* WEAK_H */ +