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

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

diff --git a/rts/RetainerSet.h b/rts/RetainerSet.h
index 6a00e13..cbf8c1d 100644 (file)
--- a/rts/RetainerSet.h
+++ b/rts/RetainerSet.h
@@ -14,6 +14,8 @@
 
 #ifdef PROFILING
 
+#pragma GCC visibility push(hidden)
+
 /*
   Type 'retainer' defines the retainer identity.
 
@@ -197,5 +199,7 @@ void outputAllRetainerSet(FILE *);
 //       the best place to define it.
 void printRetainer(FILE *, retainer);
 
+#pragma GCC visibility pop
+
 #endif /* PROFILING */
 #endif /* RETAINERSET_H */