Skip repeated scan of object during compaction

1 files changed, 1 insertions, 1 deletions

diff --git a/gc.c b/gc.c
index 306ad0e257..c5ba3e7436 100644
--- a/gc.c
+++ b/gc.c
@@ -4484,7 +4484,7 @@ try_move(rb_objspace_t *objspace, rb_heap_t *heap, struct heap_page *sweep_page,
                             objspace->rcompactor.total_moved++;
                             gc_move(objspace, (VALUE)p, dest);
                             gc_pin(objspace, (VALUE)p);
-                            heap->compact_cursor_index = i;
+                            heap->compact_cursor_index = i + 1;
                             if (from_freelist) {
                                 FL_SET((VALUE)p, FL_FROM_FREELIST);
                             }