X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FScav.h;h=699e48cbac178fc20b0c2ac87ef406b609f6ee51;hb=bef3da1e26639303fccbf26c312d2833eedb486e;hp=d9caca2c374c746063703ffcd86617a4a14f168c;hpb=64c17c4561cf419a4c70511bafc0815ea670bb2e;p=ghc-hetmet.git diff --git a/rts/sm/Scav.h b/rts/sm/Scav.h index d9caca2..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,8 +11,22 @@ * * ---------------------------------------------------------------------------*/ -void scavenge ( step * ); -void scavenge_mark_stack ( void ); -void scavenge_large ( step * ); -void scavenge_static ( void ); -void scavenge_mutable_list ( generation *g ); +#ifndef SM_SCAV_H +#define SM_SCAV_H + +#include "BeginPrivate.h" + +void scavenge_loop (void); +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 */ +