[svn:parrot] r35882 - trunk/compilers/imcc

[email protected] Thu, 22 Jan 2009 04:05:55 -0800 (PST)

Newsgroups	perl.cvs.parrot
Message-ID	<[email protected]>

Author: bernhard
Date: Thu Jan 22 04:05:55 2009
New Revision: 35882

Modified:
   trunk/compilers/imcc/pbc.c

Log:
[C] give free the memory for 'name'

Modified: trunk/compilers/imcc/pbc.c
==============================================================================
--- trunk/compilers/imcc/pbc.c	(original)
+++ trunk/compilers/imcc/pbc.c	Thu Jan 22 04:05:55 2009
@@ -2178,6 +2178,7 @@
             interp->code->annotations = (PackFile_Annotations *)
                     PackFile_Segment_new_seg(interp, dir,
                         PF_ANNOTATIONS_SEG, name, add);
+            mem_sys_free(name);
             interp->code->annotations->code = interp->code;
 
             /* Create initial group. */