[svn:parrot] r44070 - branches/sys_mem_reduce/src/pmc

[bacek at svn.parrot.org]

Author: bacek
Date: Wed Feb 17 07:20:56 2010
New Revision: 44070
URL: https://trac.parrot.org/parrot/changeset/44070

Log:
Switch FPA to use GC memory

Modified:
   branches/sys_mem_reduce/src/pmc/fixedpmcarray.pmc

Modified: branches/sys_mem_reduce/src/pmc/fixedpmcarray.pmc
==============================================================================
--- branches/sys_mem_reduce/src/pmc/fixedpmcarray.pmc	Wed Feb 17 07:20:24 2010	(r44069)
+++ branches/sys_mem_reduce/src/pmc/fixedpmcarray.pmc	Wed Feb 17 07:20:56 2010	(r44070)
@@ -88,7 +88,7 @@
 
     VTABLE void destroy() {
         if (PMC_array(SELF))
-            mem_sys_free(PMC_array(SELF));
+            gc_mem_free(INTERP, PMC_array(SELF));
     }
 
 /*
@@ -107,7 +107,7 @@
 
         if (size) {
             PMC_size(dest)  = size;
-            PMC_array(dest) = mem_allocate_n_typed(size, PMC *);
+            PMC_array(dest) = gc_mem_allocate_n_zeroed_typed(INTERP, size, PMC *);
             mem_copy_n_typed(PMC_array(dest), PMC_array(SELF), size, PMC *);
             PObj_custom_mark_destroy_SETALL(dest);
         }
@@ -397,10 +397,10 @@
                     _("Can't set self from this type"));
 
         if (PMC_array(SELF))
-            mem_sys_free(PMC_array(SELF));
+            gc_mem_free(INTERP, PMC_array(SELF));
 
         size            = PMC_size(SELF) = VTABLE_elements(INTERP, value);
-        PMC_array(SELF) = mem_allocate_n_zeroed_typed(size, PMC *);
+        PMC_array(SELF) = gc_mem_allocate_n_zeroed_typed(INTERP, size, PMC *);
 
         for (i = 0; i < size; i++)
             (PMC_array(SELF))[i] = VTABLE_get_pmc_keyed_int(INTERP, value, i);