[svn:parrot] r33910 - trunk/src

[cotto]

Author: cotto
Date: Sun Dec 14 21:08:57 2008
New Revision: 33910

Modified:
   trunk/src/embed.c

Log:
[embed] fix a memory leak (CID #181)


Modified: trunk/src/embed.c
==============================================================================
--- trunk/src/embed.c   (original)
+++ trunk/src/embed.c   Sun Dec 14 21:08:57 2008
@@ -454,6 +454,7 @@
         if (ferror(io)) {
             Parrot_io_eprintf(interp, "Parrot VM: Problem reading packfile 
from PIO:  code %d.\n",
                         ferror(io));
+            mem_sys_free(program_code);
             return NULL;
         }
         fclose(io);