[svn:parrot] r42849 - branches/cs_csr_merge/src/pmc

[bacek at svn.parrot.org]

Author: bacek
Date: Wed Dec  2 08:52:24 2009
New Revision: 42849
URL: https://trac.parrot.org/parrot/changeset/42849

Log:
Destroy CS.returns_values

Modified:
   branches/cs_csr_merge/src/pmc/callsignature.pmc

Modified: branches/cs_csr_merge/src/pmc/callsignature.pmc
==============================================================================
--- branches/cs_csr_merge/src/pmc/callsignature.pmc	Wed Dec  2 08:52:06 2009	(r42848)
+++ branches/cs_csr_merge/src/pmc/callsignature.pmc	Wed Dec  2 08:52:24 2009	(r42849)
@@ -449,6 +449,15 @@
 
             parrot_hash_destroy(interp, attrs->hash);
         }
+
+        /* Destroy returns storage */
+        if (attrs->returns_values) {
+            if (attrs->returns_resize_threshold == 8)
+                Parrot_gc_free_fixed_size_storage(INTERP,
+                    8 * sizeof (void *), attrs->returns_values);
+            else
+                mem_sys_free(attrs->returns_values);
+        }
     }
 
 /*