Remove unused RTS function 'unmark'
authorÖmer Sinan Ağacan <omeragacan@gmail.com>
Thu, 23 May 2019 09:16:28 +0000 (12:16 +0300)
committerMarge Bot <ben+marge-bot@smart-cactus.org>
Fri, 31 May 2019 06:00:02 +0000 (02:00 -0400)
rts/sm/Compact.h

index db50807..b052112 100644 (file)
@@ -25,16 +25,6 @@ mark(StgPtr p, bdescr *bd)
     *bitmap_word |= bit_mask;
 }
 
-INLINE_HEADER void
-unmark(StgPtr p, bdescr *bd)
-{
-    uint32_t offset_within_block = p - bd->start; // in words
-    StgPtr bitmap_word = (StgPtr)bd->u.bitmap +
-        (offset_within_block / BITS_IN(W_));
-    StgWord bit_mask = (StgWord)1 << (offset_within_block & (BITS_IN(W_) - 1));
-    *bitmap_word &= ~bit_mask;
-}
-
 INLINE_HEADER StgWord
 is_marked(StgPtr p, bdescr *bd)
 {