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

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

diff --git a/rts/sm/Compact.h b/rts/sm/Compact.h
index 1e89ad3..7fe15e5 100644 (file)
--- a/rts/sm/Compact.h
+++ b/rts/sm/Compact.h
@@ -14,7 +14,7 @@
 #ifndef SM_COMPACT_H
 #define SM_COMPACT_H
 
-#pragma GCC visibility push(hidden)
+BEGIN_RTS_PRIVATE
 
 INLINE_HEADER rtsBool
 mark_stack_empty(void)
@@ -78,6 +78,6 @@ is_marked(StgPtr p, bdescr *bd)
 
 void compact (StgClosure *static_objects);
 
-#pragma GCC visibility pop
+END_RTS_PRIVATE
 
 #endif /* SM_COMPACT_H */