X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FGCUtils.h;h=070a5545b05454b2ccbc88f63817fea9b302616f;hb=eff182c31745b958d627d4feb1e53c09298c6836;hp=7fafe51ba2ca064b0a4e43d091cf1da424689a57;hpb=9a9803e8dc80ba41bd3e2d31228e64fa6b61060e;p=ghc-hetmet.git diff --git a/rts/sm/GCUtils.h b/rts/sm/GCUtils.h index 7fafe51..070a554 100644 --- a/rts/sm/GCUtils.h +++ b/rts/sm/GCUtils.h @@ -14,16 +14,16 @@ #ifndef SM_GCUTILS_H #define SM_GCUTILS_H -BEGIN_RTS_PRIVATE +#include "BeginPrivate.h" bdescr *allocBlock_sync(void); void freeChain_sync(bdescr *bd); -void push_scanned_block (bdescr *bd, step_workspace *ws); -StgPtr todo_block_full (nat size, step_workspace *ws); -StgPtr alloc_todo_block (step_workspace *ws, nat size); +void push_scanned_block (bdescr *bd, gen_workspace *ws); +StgPtr todo_block_full (nat size, gen_workspace *ws); +StgPtr alloc_todo_block (gen_workspace *ws, nat size); -bdescr *grab_local_todo_block (step_workspace *ws); +bdescr *grab_local_todo_block (gen_workspace *ws); #if defined(THREADED_RTS) bdescr *steal_todo_block (nat s); #endif @@ -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 */