vm: improved fingering technique

diff --git a/vm/free_list_allocator.hpp b/vm/free_list_allocator.hpp
index 7d7807ef9ab71dcb5d4df8e0132c7d775f2c5033..8c63bd487d482def2295958e80ab0e695e0c5091 100644 (file)
--- 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;