summaryrefslogtreecommitdiff
path: root/includes/Rts.h
diff options
context:
space:
mode:
authorSimon Marlow <marlowsd@gmail.com>2010-06-17 10:57:58 +0000
committerSimon Marlow <marlowsd@gmail.com>2010-06-17 10:57:58 +0000
commit51b85031ce99f1e9d4c72249d6d85672188f0fbd (patch)
tree6fefe3ba6a0ee5507ce31d8a9eb884af47b0717e /includes/Rts.h
parenta998343dfabe92da17b2f60c78968eff2f444050 (diff)
downloadhaskell-51b85031ce99f1e9d4c72249d6d85672188f0fbd.tar.gz
Fix the symbol visibility pragmas
Diffstat (limited to 'includes/Rts.h')
-rw-r--r--includes/Rts.h10
1 files changed, 1 insertions, 9 deletions
diff --git a/includes/Rts.h b/includes/Rts.h
index d79e9ad88e..394eb9710f 100644
--- a/includes/Rts.h
+++ b/includes/Rts.h
@@ -57,15 +57,7 @@ extern "C" {
#define RTS_PRIVATE /* disabled: RTS_PRIVATE */
#endif
-#if __GNUC__ > 4
-#define BEGIN_RTS_PRIVATE #pragma GCC visibility push(hidden)
-#define END_RTS_PRIVATE #pragma GCC visibility pop
-#else
-#define BEGIN_RTS_PRIVATE /* disabled: BEGIN_RTS_PRIVATE */
-#define END_RTS_PRIVATE /* disabled: END_RTS_PRIVATE */
-#endif
-
-#if __GNUC__ > 4
+#if __GNUC__ >= 4
#define RTS_UNLIKELY(p) __builtin_expect((p),0)
#else
#define RTS_UNLIKELY(p) p