From f29a1038eb4ca1a3a1c634082bef34eae463a314 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 16 Jun 2010 19:08:58 -0400
Subject: [PATCH] vm: improved fingering technique

---
 vm/free_list_allocator.hpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/vm/free_list_allocator.hpp b/vm/free_list_allocator.hpp
index 7d7807ef9a..8c63bd487d 100644
--- a/vm/free_list_allocator.hpp
+++ b/vm/free_list_allocator.hpp
@@ -164,7 +164,7 @@ template<typename Block, typename Iterator> struct heap_compactor {
 	{
 		if(this->state->marked_p(block))
 		{
-			*finger = block;
+			*finger = (Block *)((char *)block + size);
 			memmove((Block *)address,block,size);
 			iter(block,(Block *)address,size);
 			address += size;