projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Declare RTS-private prototypes with __attribute__((visibility("hidden")))
[ghc-hetmet.git]
/
rts
/
sm
/
Compact.h
diff --git
a/rts/sm/Compact.h
b/rts/sm/Compact.h
index
7a237ac
..
1e89ad3
100644
(file)
--- a/
rts/sm/Compact.h
+++ b/
rts/sm/Compact.h
@@
-14,6
+14,8
@@
#ifndef SM_COMPACT_H
#define SM_COMPACT_H
#ifndef SM_COMPACT_H
#define SM_COMPACT_H
+#pragma GCC visibility push(hidden)
+
INLINE_HEADER rtsBool
mark_stack_empty(void)
{
INLINE_HEADER rtsBool
mark_stack_empty(void)
{
@@
-74,6
+76,8
@@
is_marked(StgPtr p, bdescr *bd)
return (*bitmap_word & bit_mask);
}
return (*bitmap_word & bit_mask);
}
-extern void compact (StgClosure *static_objects);
+void compact (StgClosure *static_objects);
+
+#pragma GCC visibility pop
#endif /* SM_COMPACT_H */
#endif /* SM_COMPACT_H */