X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FScav.h;h=699e48cbac178fc20b0c2ac87ef406b609f6ee51;hb=26f4bfc82f2b2359259578e9c54d476fc2de650f;hp=f149b667ac9f2f932c8c069e456381eb044af85e;hpb=f2ca6deece1ed1724efdd6d2293dc7642059b2f2;p=ghc-hetmet.git diff --git a/rts/sm/Scav.h b/rts/sm/Scav.h index f149b66..699e48c 100644 --- a/rts/sm/Scav.h +++ b/rts/sm/Scav.h @@ -1,6 +1,6 @@ /* ----------------------------------------------------------------------------- * - * (c) The GHC Team 1998-2006 + * (c) The GHC Team 1998-2008 * * Generational garbage collector: scavenging functions * @@ -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 */ +