[svn:parrot] r47213 - branches/gc_massacre/src/gc

[bacek at svn.parrot.org]

Author: bacek
Date: Mon May 31 11:42:29 2010
New Revision: 47213
URL: https://trac.parrot.org/parrot/changeset/47213

Log:
Fix PoolAllocator.is_owned.

PoolAllocator.arenas are forward list, not backward.

Modified:
   branches/gc_massacre/src/gc/pool_allocator.c

Modified: branches/gc_massacre/src/gc/pool_allocator.c
==============================================================================
--- branches/gc_massacre/src/gc/pool_allocator.c	Mon May 31 11:42:10 2010	(r47212)
+++ branches/gc_massacre/src/gc/pool_allocator.c	Mon May 31 11:42:29 2010	(r47213)
@@ -156,6 +156,8 @@
     ASSERT_ARGS(Parrot_gc_pool_free)
     Pool_Allocator_Free_List * const item = (Pool_Allocator_Free_List *)data;
 
+    PARROT_ASSERT(Parrot_gc_pool_is_owned(pool, data));
+
     item->next      = pool->free_list;
     pool->free_list = item;
 
@@ -179,7 +181,7 @@
               && ptr_diff % pool->object_size == 0)
             return 1;
 
-        arena = arena->prev;
+        arena = arena->next;
     }
 
     return 0;