[svn:parrot] r16483 - trunk/languages/tcl/src

[mdiep]

Author: mdiep
Date: Mon Jan  8 09:12:50 2007
New Revision: 16483

Modified:
   trunk/languages/tcl/src/binary.c

Log:
[tcl]: Fix a couple memleaks in [binary] opcodes

Modified: trunk/languages/tcl/src/binary.c
==============================================================================
--- trunk/languages/tcl/src/binary.c    (original)
+++ trunk/languages/tcl/src/binary.c    Mon Jan  8 09:12:50 2007
@@ -87,6 +87,9 @@
         VTABLE_push_pmc(interp, values, value);
     }
 
+    string_cstring_free(binstr);
+    string_cstring_free(format);
+
     return values;
 }
 
@@ -129,6 +132,8 @@
         binstr = binary_format_field(interp, format[pos++], binstr, value);
     }
 
+    string_cstring_free(format);
+
     return binstr;
 }