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

[bacek at svn.parrot.org]

Author: bacek
Date: Wed Feb 17 07:49:46 2010
New Revision: 44072
URL: https://trac.parrot.org/parrot/changeset/44072

Log:
Switch FSA to use GC allocations

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

Modified: branches/sys_mem_reduce/src/pmc/fixedstringarray.pmc
==============================================================================
--- branches/sys_mem_reduce/src/pmc/fixedstringarray.pmc	Wed Feb 17 07:41:56 2010	(r44071)
+++ branches/sys_mem_reduce/src/pmc/fixedstringarray.pmc	Wed Feb 17 07:49:46 2010	(r44072)
@@ -60,7 +60,7 @@
         GET_ATTR_str_array(INTERP, SELF, str_array);
 
         if (str_array)
-            mem_sys_free(str_array);
+            gc_mem_free(INTERP, str_array);
     }
 
 /*
@@ -87,7 +87,7 @@
             GET_ATTR_size(INTERP, SELF, size);
             mem_size = size * sizeof (STRING *);
 
-            dest_str_array = mem_allocate_n_zeroed_typed(size, STRING *);
+            dest_str_array = gc_mem_allocate_n_zeroed_typed(INTERP, size, STRING *);
             mem_sys_memcopy(dest_str_array, my_str_array, mem_size);
             SET_ATTR_str_array(INTERP, dest, dest_str_array);
             SET_ATTR_size(INTERP, dest, size);
@@ -341,7 +341,7 @@
 
         SET_ATTR_size(INTERP, SELF, new_size);
         SET_ATTR_str_array(INTERP, SELF,
-                (STRING**)mem_sys_allocate_zeroed(new_size * sizeof (STRING*)));
+                gc_mem_allocate_n_zeroed_typed(INTERP, new_size, STRING*));
 
         PObj_custom_mark_destroy_SETALL(SELF);
     }