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

[Will Coleda via RT]

On Fri Nov 14 07:09:14 2008, coke wrote:
> 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
> 

Rejecting this ticket for the smaller set of code/leaks here:

https://trac.parrot.org/parrot/ticket/5

-- 
Will "Coke" Coleda