[perl #42790] [BUG] Tailcall with slurpy argument passing causes a memory leak

[Mehmet Yavuz Selim Soyturk]

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


Next program makes a slurpy tailcall, and it causes a memory leak for me.

.sub callee
   .param pmc params :slurpy

   $P0 = new .Integer
   .return ($P0)
.end

.sub caller
    $P0 = new .Integer
    $P1 = new .Float
    $P2 = new .ResizablePMCArray

    # tailcall causes a memory leak
    .return callee($P0, $P1, $P2)
.end

.sub main :main
  loop:
    caller()
    goto loop
.end

************

parrot revision r18352
i686 GNU/Linux

-- 
Mehmet