X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FRetainerSet.h;h=e3d3acd38cdc7cf2fa35698bfa46619f0870bf38;hb=661c97c65e5fa47177502e592bb763f752b487ac;hp=cbf8c1d9b08264633f3cfd6ca306b49db7b5dc84;hpb=7d7c187b4a12f1bb350e85cdb0115e19537cc704;p=ghc-hetmet.git

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