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

[bacek at svn.parrot.org]

Author: bacek
Date: Thu Sep 23 08:13:57 2010
New Revision: 49267
URL: https://trac.parrot.org/parrot/changeset/49267

Log:
Really destroy Fixed_Allocator

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

Modified: branches/gc_massacre/src/gc/fixed_allocator.c
==============================================================================
--- branches/gc_massacre/src/gc/fixed_allocator.c	Thu Sep 23 07:42:45 2010	(r49266)
+++ branches/gc_massacre/src/gc/fixed_allocator.c	Thu Sep 23 08:13:57 2010	(r49267)
@@ -113,7 +113,12 @@
 Parrot_gc_fixed_allocator_destroy(PARROT_INTERP, ARGFREE_NOTNULL(Fixed_Allocator *allocator))
 {
     ASSERT_ARGS(Parrot_gc_fixed_allocator_destroy)
-
+    size_t i;
+    for (i = 0; i < allocator->num_pools; ++i) {
+        if (allocator->pools[i]) {
+            Parrot_gc_pool_destroy(interp, allocator->pools[i]);
+        }
+    }
 }
 
 PARROT_EXPORT