[perl #60540] Memory leak in parrot (via tcl)

[via RT]

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


This tcl code (a snippet from the official tcl test suite) runs out of
memory on partcl. (it's part of a larger test file that used to pass)

To run the code, see:
http://code.google.com/p/partcl/wiki/PartclSource (but use svn-latest
parrot), and http://code.google.com/p/partcl/wiki/RunningTclCode


if {[lsearch [namespace children] ::tcltest] == -1} {
    package require tcltest 2
    namespace import -force ::tcltest::*
}
test cmdIL-2.1 {MergeSort and MergeLists procedures} -setup {
    set result {}
    set r 1435753299
    proc rand {} {
        global r
        set r [expr {(16807 * $r) % (0x7fffffff)}]
    }
} -body {
    for {set i 0} {$i < 150} {incr i} {
        set x {}
        for {set j 0} {$j < $i} {incr j} {
            lappend x [expr {[rand] & 0xfff}]
        }
        set y [lsort -integer $x]
        set old -1
        foreach el $y {
            if {$el < $old} {
                append result "list {$x} sorted to {$y}, element $el
out of order\n"
                break
            }
            set old $el
        }
    }
    set result
} -cleanup {
    rename rand ""
} -result {}


Valgrind output here:

http://nopaste.snit.ch/14578

-- 
Will "Coke" Coleda