[perl #47704] [BUG]Memory leak with STRING's

[Mehmet Yavuz Selim Soyturk]

# New Ticket Created by  "Mehmet Yavuz Selim Soyturk" 
# Please include the string:  [perl #47704]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=47704 >


There is a memory leak with the STRING's. Next C code consumes more
and more memory, but does not free it:

for(i=0;i<20000000;i++) {
    string_from_literal(INTERP, "nothing");
}

And here is some PIR code showing the leak:

.sub _ :main
loop:
    $S1 = "foo"
    concat $S1, "bar"
        goto loop
.end

====================================

Summary of my parrot 0.5.0 (r22959) configuration:
  configdate='Thu Nov 22 15:17:06 2007 GMT'
  Platform:
    osname=linux, archname=i486-linux-gnu-thread-multi
    jitcapable=1, jitarchname=i386-linux,
    jitosname=LINUX, jitcpuarch=i386
    execcapable=1
    perl=/usr/bin/perl
  Compiler:
    cc='cc', ccflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS
-DDEBIAN  -pipe -I/usr/local/include -D_LARGEFILE_SOURCE
-D_FILE_OFFSET_BITS=64 -DHASATTRIBUTE_CONST  -DHASATTRIBUTE_DEPRECATED
 -DHASATTRIBUTE_FORMAT  -DHASATTRIBUTE_MALLOC  -DHASATTRIBUTE_NONNULL
-DHASATTRIBUTE_NORETURN  -DHASATTRIBUTE_PURE  -DHASATTRIBUTE_UNUSED
-DHASATTRIBUTE_WARN_UNUSED_RESULT  -I /usr/include',
  Linker and Libraries:
    ld='cc', ldflags=' -L/usr/local/lib',
    cc_ldflags='',
    libs='-ldl -lm -lpthread -lcrypt -lrt -lgmp -lreadline'
  Dynamic Linking:
    share_ext='.so', ld_share_flags='-shared -L/usr/local/lib -fPIC',
    load_ext='.so', ld_load_flags='-shared -L/usr/local/lib -fPIC'
  Types:
    iv=long, intvalsize=4, intsize=4, opcode_t=long, opcode_t_size=4,
    ptrsize=4, ptr_alignment=1 byteorder=1234,
    nv=double, numvalsize=8, doublesize=8
-- 
Mehmet