/* -----------------------------------------------------------------------------
*
- * (c) The GHC Team 1998-1999
+ * (c) The GHC Team 1998-2005
*
* Compacting garbage collector
*
* ---------------------------------------------------------------------------*/
-INLINE_HEADER void
+#ifndef GCCOMPACT_H
+#define GCCOMPACT_H
+
+STATIC_INLINE void
mark(StgPtr p, bdescr *bd)
{
nat offset_within_block = p - bd->start; // in words
*bitmap_word |= bit_mask;
}
-INLINE_HEADER void
+STATIC_INLINE void
unmark(StgPtr p, bdescr *bd)
{
nat offset_within_block = p - bd->start; // in words
*bitmap_word &= ~bit_mask;
}
-INLINE_HEADER StgWord
+STATIC_INLINE StgWord
is_marked(StgPtr p, bdescr *bd)
{
nat offset_within_block = p - bd->start; // in words
}
void compact( void (*get_roots)(evac_fn) );
+
+#endif /* GCCOMPACT_H */