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

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

diff --git a/rts/Stable.h b/rts/Stable.h
index 258a6be..b1b25ff 100644 (file)
--- a/rts/Stable.h
+++ b/rts/Stable.h
@@ -17,7 +17,9 @@
 
 #include "sm/GC.h" // for evac_fn below
 
-void         freeStablePtr (StgStablePtr sp);
+#pragma GCC visibility push(hidden)
+
+void    freeStablePtr         ( StgStablePtr sp );
 
 void    initStablePtrTable    ( void );
 void    exitStablePtrTable    ( void );
@@ -31,4 +33,6 @@ void    updateStablePtrTable  ( rtsBool full );
 void    stablePtrPreGC        ( void );
 void    stablePtrPostGC       ( void );
 
+#pragma GCC visibility pop
+
 #endif /* STABLE_H */