summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorÖmer Sinan Ağacan <omeragacan@gmail.com>2019-05-23 12:16:28 +0300
committerMarge Bot <ben+marge-bot@smart-cactus.org>2019-05-31 02:00:02 -0400
commitc70d039e5fa1a8dc0163b1fe7db5b0105b832d30 (patch)
tree09f12a718509b8858d6abb1ca78fbf31e11ec3d8
parentf071576cf4a58de101e00c6e854e66acb8cc3e67 (diff)
downloadhaskell-c70d039e5fa1a8dc0163b1fe7db5b0105b832d30.tar.gz
Remove unused RTS function 'unmark'
-rw-r--r--rts/sm/Compact.h10
1 files changed, 0 insertions, 10 deletions
diff --git a/rts/sm/Compact.h b/rts/sm/Compact.h
index db50807217..b0521122df 100644
--- a/rts/sm/Compact.h
+++ b/rts/sm/Compact.h
@@ -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)
{