Merge branch 'wip/gc/prefetch-mark' into gc-paper/base

1 files changed, 5 insertions, 0 deletions

diff --git a/rts/sm/NonMovingMark.c b/rts/sm/NonMovingMark.c
index b0fbb24416..375398ab63 100644
--- a/rts/sm/NonMovingMark.c
+++ b/rts/sm/NonMovingMark.c
@@ -850,6 +850,11 @@ static MarkQueueEnt markQueuePop (MarkQueue *q)
         // marked first.
         prefetchForRead(&new.mark_closure.p->header.info);
         prefetchForRead(Bdescr((StgPtr) new.mark_closure.p));
+        {
+            struct NonmovingSegment *seg = nonmovingGetSegment((StgPtr) new.mark_closure.p);
+            nonmoving_block_idx blk_idx = nonmovingGetBlockIdx((StgPtr) new.mark_closure.p);
+            prefetchForRead(&seg->bitmap[blk_idx]);
+        }
         q->prefetch_queue[i] = new;
         i = (i + 1) % MARK_PREFETCH_QUEUE_DEPTH;
     }