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

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

diff --git a/rts/sm/OSMem.h b/rts/sm/OSMem.h
index 3dbca23..92fe350 100644 (file)
--- a/rts/sm/OSMem.h
+++ b/rts/sm/OSMem.h
@@ -9,10 +9,14 @@
 #ifndef SM_OSMEM_H
 #define SM_OSMEM_H
 
+#pragma GCC visibility push(hidden)
+
 void osMemInit(void);
 void *osGetMBlocks(nat n);
 void osFreeAllMBlocks(void);
 lnat getPageSize (void);
 void setExecutable (void *p, lnat len, rtsBool exec);
 
+#pragma GCC visibility pop
+
 #endif /* SM_OSMEM_H */