[svn:parrot] r45000 - branches/pcc_megrecells/src/pmc

[bacek at svn.parrot.org]

Author: bacek
Date: Thu Mar 18 09:47:59 2010
New Revision: 45000
URL: https://trac.parrot.org/parrot/changeset/45000

Log:
Don't try to free not allocated positionals.

Modified:
   branches/pcc_megrecells/src/pmc/callcontext.pmc

Modified: branches/pcc_megrecells/src/pmc/callcontext.pmc
==============================================================================
--- branches/pcc_megrecells/src/pmc/callcontext.pmc	Thu Mar 18 09:13:28 2010	(r44999)
+++ branches/pcc_megrecells/src/pmc/callcontext.pmc	Thu Mar 18 09:47:59 2010	(r45000)
@@ -71,8 +71,9 @@
             size * sizeof (Pcc_cell));
     memcpy(new_array, array, num_positionals * sizeof (Pcc_cell));
 
-    Parrot_gc_free_fixed_size_storage(interp, allocated_positionals * sizeof (Pcc_cell),
-            array);
+    if (array)
+        Parrot_gc_free_fixed_size_storage(interp, allocated_positionals * sizeof (Pcc_cell),
+                array);
 
     SETATTR_CallContext_allocated_positionals(interp, self, size);
     SETATTR_CallContext_positionals(interp, self, new_array);