From c70d039e5fa1a8dc0163b1fe7db5b0105b832d30 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C3=96mer=20Sinan=20A=C4=9Facan?= <omeragacan@gmail.com>
Date: Thu, 23 May 2019 12:16:28 +0300
Subject: Remove unused RTS function 'unmark'

---
 rts/sm/Compact.h | 10 ----------
 1 file changed, 10 deletions(-)

(limited to 'rts')

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)
 {
-- 
cgit v1.2.1