Declare RTS-private prototypes with __attribute__((visibility("hidden")))

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

diff --git a/rts/Weak.h b/rts/Weak.h
index ba8c1ca..2c831d8 100644 (file)
--- 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 */
+