diff options
author | Simon Marlow <marlowsd@gmail.com> | 2010-06-17 10:57:58 +0000 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2010-06-17 10:57:58 +0000 |
commit | 51b85031ce99f1e9d4c72249d6d85672188f0fbd (patch) | |
tree | 6fefe3ba6a0ee5507ce31d8a9eb884af47b0717e /rts/sm | |
parent | a998343dfabe92da17b2f60c78968eff2f444050 (diff) | |
download | haskell-51b85031ce99f1e9d4c72249d6d85672188f0fbd.tar.gz |
Fix the symbol visibility pragmas
Diffstat (limited to 'rts/sm')
-rw-r--r-- | rts/sm/BlockAlloc.h | 4 | ||||
-rw-r--r-- | rts/sm/Compact.h | 4 | ||||
-rw-r--r-- | rts/sm/Evac.h | 4 | ||||
-rw-r--r-- | rts/sm/GC.h | 4 | ||||
-rw-r--r-- | rts/sm/GCThread.h | 4 | ||||
-rw-r--r-- | rts/sm/GCUtils.h | 4 | ||||
-rw-r--r-- | rts/sm/MarkStack.h | 4 | ||||
-rw-r--r-- | rts/sm/MarkWeak.h | 4 | ||||
-rw-r--r-- | rts/sm/OSMem.h | 4 | ||||
-rw-r--r-- | rts/sm/Sanity.h | 4 | ||||
-rw-r--r-- | rts/sm/Scav.h | 4 | ||||
-rw-r--r-- | rts/sm/Storage.h | 4 |
12 files changed, 24 insertions, 24 deletions
diff --git a/rts/sm/BlockAlloc.h b/rts/sm/BlockAlloc.h index b6d451f39f..c195baa43a 100644 --- a/rts/sm/BlockAlloc.h +++ b/rts/sm/BlockAlloc.h @@ -9,7 +9,7 @@ #ifndef BLOCK_ALLOC_H #define BLOCK_ALLOC_H -BEGIN_RTS_PRIVATE +#include "BeginPrivate.h" /* Debugging -------------------------------------------------------------- */ @@ -26,6 +26,6 @@ void reportUnmarkedBlocks (void); extern lnat n_alloc_blocks; // currently allocated blocks extern lnat hw_alloc_blocks; // high-water allocated blocks -END_RTS_PRIVATE +#include "EndPrivate.h" #endif /* BLOCK_ALLOC_H */ diff --git a/rts/sm/Compact.h b/rts/sm/Compact.h index efd7351b58..0dce3d0cb6 100644 --- a/rts/sm/Compact.h +++ b/rts/sm/Compact.h @@ -14,7 +14,7 @@ #ifndef SM_COMPACT_H #define SM_COMPACT_H -BEGIN_RTS_PRIVATE +#include "BeginPrivate.h" INLINE_HEADER void mark(StgPtr p, bdescr *bd) @@ -48,6 +48,6 @@ is_marked(StgPtr p, bdescr *bd) void compact (StgClosure *static_objects); -END_RTS_PRIVATE +#include "EndPrivate.h" #endif /* SM_COMPACT_H */ diff --git a/rts/sm/Evac.h b/rts/sm/Evac.h index 52346b1fd2..c95658a1bf 100644 --- a/rts/sm/Evac.h +++ b/rts/sm/Evac.h @@ -14,7 +14,7 @@ #ifndef SM_EVAC_H #define SM_EVAC_H -BEGIN_RTS_PRIVATE +#include "BeginPrivate.h" // Use a register argument for evacuate, if available. // Earlier, the regparm attribute was used whenever __GNUC__ >= 2, but this @@ -37,7 +37,7 @@ REGPARM1 void evacuate1 (StgClosure **p); extern lnat thunk_selector_depth; -END_RTS_PRIVATE +#include "EndPrivate.h" #endif /* SM_EVAC_H */ diff --git a/rts/sm/GC.h b/rts/sm/GC.h index e871f4c56c..38fc87ca44 100644 --- a/rts/sm/GC.h +++ b/rts/sm/GC.h @@ -14,7 +14,7 @@ #ifndef SM_GC_H #define SM_GC_H -BEGIN_RTS_PRIVATE +#include "BeginPrivate.h" void GarbageCollect(rtsBool force_major_gc, nat gc_type, Capability *cap); @@ -53,6 +53,6 @@ void releaseGCThreads (Capability *cap); #define WORK_UNIT_WORDS 128 -END_RTS_PRIVATE +#include "EndPrivate.h" #endif /* SM_GC_H */ diff --git a/rts/sm/GCThread.h b/rts/sm/GCThread.h index 7d46232513..65554c47c4 100644 --- a/rts/sm/GCThread.h +++ b/rts/sm/GCThread.h @@ -16,7 +16,7 @@ #include "WSDeque.h" -BEGIN_RTS_PRIVATE +#include "BeginPrivate.h" /* ----------------------------------------------------------------------------- General scheme @@ -276,7 +276,7 @@ extern StgWord8 the_gc_thread[]; #endif -END_RTS_PRIVATE +#include "EndPrivate.h" #endif // SM_GCTHREAD_H diff --git a/rts/sm/GCUtils.h b/rts/sm/GCUtils.h index 1fbbe3c377..070a5545b0 100644 --- a/rts/sm/GCUtils.h +++ b/rts/sm/GCUtils.h @@ -14,7 +14,7 @@ #ifndef SM_GCUTILS_H #define SM_GCUTILS_H -BEGIN_RTS_PRIVATE +#include "BeginPrivate.h" bdescr *allocBlock_sync(void); void freeChain_sync(bdescr *bd); @@ -61,6 +61,6 @@ recordMutableGen_GC (StgClosure *p, nat gen_no) *bd->free++ = (StgWord)p; } -END_RTS_PRIVATE +#include "EndPrivate.h" #endif /* SM_GCUTILS_H */ diff --git a/rts/sm/MarkStack.h b/rts/sm/MarkStack.h index bf445b327a..db79ca4520 100644 --- a/rts/sm/MarkStack.h +++ b/rts/sm/MarkStack.h @@ -14,7 +14,7 @@ #ifndef SM_MARKSTACK_H #define SM_MARKSTACk_H -BEGIN_RTS_PRIVATE +#include "BeginPrivate.h" INLINE_HEADER void push_mark_stack(StgPtr p) @@ -66,6 +66,6 @@ mark_stack_empty(void) return (((W_)mark_sp & BLOCK_MASK) == 0 && mark_stack_bd->link == NULL); } -END_RTS_PRIVATE +#include "EndPrivate.h" #endif /* SM_MARKSTACK_H */ diff --git a/rts/sm/MarkWeak.h b/rts/sm/MarkWeak.h index 5c05ab2499..64ccb0f027 100644 --- a/rts/sm/MarkWeak.h +++ b/rts/sm/MarkWeak.h @@ -14,7 +14,7 @@ #ifndef SM_MARKWEAK_H #define SM_MARKWEAK_H -BEGIN_RTS_PRIVATE +#include "BeginPrivate.h" extern StgWeak *old_weak_ptr_list; extern StgTSO *resurrected_threads; @@ -24,6 +24,6 @@ void initWeakForGC ( void ); rtsBool traverseWeakPtrList ( void ); void markWeakPtrList ( void ); -END_RTS_PRIVATE +#include "EndPrivate.h" #endif /* SM_MARKWEAK_H */ diff --git a/rts/sm/OSMem.h b/rts/sm/OSMem.h index ee6b810f39..3349140529 100644 --- a/rts/sm/OSMem.h +++ b/rts/sm/OSMem.h @@ -9,7 +9,7 @@ #ifndef SM_OSMEM_H #define SM_OSMEM_H -BEGIN_RTS_PRIVATE +#include "BeginPrivate.h" void osMemInit(void); void *osGetMBlocks(nat n); @@ -17,6 +17,6 @@ void osFreeAllMBlocks(void); lnat getPageSize (void); void setExecutable (void *p, lnat len, rtsBool exec); -END_RTS_PRIVATE +#include "EndPrivate.h" #endif /* SM_OSMEM_H */ diff --git a/rts/sm/Sanity.h b/rts/sm/Sanity.h index 5c963b4c23..602be54724 100644 --- a/rts/sm/Sanity.h +++ b/rts/sm/Sanity.h @@ -11,7 +11,7 @@ #ifdef DEBUG -BEGIN_RTS_PRIVATE +#include "BeginPrivate.h" # if defined(PAR) # define PVM_PE_MASK 0xfffc0000 @@ -42,7 +42,7 @@ void memInventory (rtsBool show); void checkBQ (StgTSO *bqe, StgClosure *closure); -END_RTS_PRIVATE +#include "EndPrivate.h" #endif /* DEBUG */ diff --git a/rts/sm/Scav.h b/rts/sm/Scav.h index ad466c8488..699e48cbac 100644 --- a/rts/sm/Scav.h +++ b/rts/sm/Scav.h @@ -14,7 +14,7 @@ #ifndef SM_SCAV_H #define SM_SCAV_H -BEGIN_RTS_PRIVATE +#include "BeginPrivate.h" void scavenge_loop (void); void scavenge_mutable_list (bdescr *bd, generation *gen); @@ -26,7 +26,7 @@ void scavenge_mutable_list1 (bdescr *bd, generation *gen); void scavenge_capability_mut_Lists1 (Capability *cap); #endif -END_RTS_PRIVATE +#include "EndPrivate.h" #endif /* SM_SCAV_H */ diff --git a/rts/sm/Storage.h b/rts/sm/Storage.h index f8532e03c1..f6c50ad2f5 100644 --- a/rts/sm/Storage.h +++ b/rts/sm/Storage.h @@ -11,7 +11,7 @@ #include "Capability.h" -BEGIN_RTS_PRIVATE +#include "BeginPrivate.h" /* ----------------------------------------------------------------------------- Initialisation / De-initialisation @@ -151,6 +151,6 @@ void move_TSO (StgTSO *src, StgTSO *dest); extern StgClosure * caf_list; extern StgClosure * revertible_caf_list; -END_RTS_PRIVATE +#include "EndPrivate.h" #endif /* SM_STORAGE_H */ |