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

[ghc-hetmet.git] / rts / sm / Evac.h

diff --git a/rts/sm/Evac.h b/rts/sm/Evac.h
index 78d024f..ca5032f 100644 (file)
--- a/rts/sm/Evac.h
+++ b/rts/sm/Evac.h
@@ -14,6 +14,8 @@
 #ifndef SM_EVAC_H
 #define SM_EVAC_H
 
+#pragma GCC visibility push(hidden)
+
 // Use a register argument for evacuate, if available.
 // Earlier, the regparm attribute was used whenever __GNUC__ >= 2, but this
 // generated warnings on PPC. So the use is restricted further.
@@ -35,5 +37,7 @@ REGPARM1 void evacuate1 (StgClosure **p);
 
 extern lnat thunk_selector_depth;
 
+#pragma GCC visibility pop
+
 #endif /* SM_EVAC_H */