diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2019-05-23 12:16:28 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-05-31 02:00:02 -0400 |
| commit | c70d039e5fa1a8dc0163b1fe7db5b0105b832d30 (patch) | |
| tree | 09f12a718509b8858d6abb1ca78fbf31e11ec3d8 | |
| parent | f071576cf4a58de101e00c6e854e66acb8cc3e67 (diff) | |
| download | haskell-c70d039e5fa1a8dc0163b1fe7db5b0105b832d30.tar.gz | |
Remove unused RTS function 'unmark'
| -rw-r--r-- | rts/sm/Compact.h | 10 |
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) { |