X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FRetainerSet.h;h=cbf8c1d9b08264633f3cfd6ca306b49db7b5dc84;hb=7d7c187b4a12f1bb350e85cdb0115e19537cc704;hp=6a00e1395e7f6071573c15d62fd874d34c521f3f;hpb=acdd7c95066cf6505a4d2e8683f119146805af91;p=ghc-hetmet.git diff --git a/rts/RetainerSet.h b/rts/RetainerSet.h index 6a00e13..cbf8c1d 100644 --- 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 */