Omit visibility pragmas on Windows (fixes warnings/validate failures)

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

diff --git a/rts/STM.h b/rts/STM.h
index 1f28b9c..495b763 100644 (file)
--- a/rts/STM.h
+++ b/rts/STM.h
@@ -40,7 +40,7 @@
 #define STM_UNIPROC
 #endif
 
-#pragma GCC visibility push(hidden)
+BEGIN_RTS_PRIVATE
 
 /*----------------------------------------------------------------------
 
@@ -232,7 +232,7 @@ void stmWriteTVar(Capability *cap,
 
 /*----------------------------------------------------------------------*/
 
-#pragma GCC visibility pop
+END_RTS_PRIVATE
 
 #endif /* STM_H */