X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FScav.h;h=699e48cbac178fc20b0c2ac87ef406b609f6ee51;hb=83d563cb9ede0ba792836e529b1e2929db926355;hp=e8eab485d5165d6a87de8a5cbe957cf8848a1d8c;hpb=a370654a872838c43e63bdd6cc279c0ee9913cdf;p=ghc-hetmet.git diff --git a/rts/sm/Scav.h b/rts/sm/Scav.h index e8eab48..699e48c 100644 --- a/rts/sm/Scav.h +++ b/rts/sm/Scav.h @@ -11,6 +11,22 @@ * * ---------------------------------------------------------------------------*/ +#ifndef SM_SCAV_H +#define SM_SCAV_H + +#include "BeginPrivate.h" + void scavenge_loop (void); -rtsBool any_work (void); -void scavenge_mutable_list (generation *g); +void scavenge_mutable_list (bdescr *bd, generation *gen); +void scavenge_capability_mut_lists (Capability *cap); + +#ifdef THREADED_RTS +void scavenge_loop1 (void); +void scavenge_mutable_list1 (bdescr *bd, generation *gen); +void scavenge_capability_mut_Lists1 (Capability *cap); +#endif + +#include "EndPrivate.h" + +#endif /* SM_SCAV_H */ +