[perl #38724] Tailcalls into the PIR Compiler are Broken

[via RT]

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


   [EMAIL PROTECTED]:~/parrot$ cat test.pir
   .sub main :main
     $P0 = eval("print \"Foo!\\n\"")
     $P0()
     end
   .end

   .sub eval
     .param string code

     code = ".sub main :main :anon\n" . code
     code = code . "\n.end\n"

     $P0 = compreg "PIR"

     .return $P0(code)
   .end
   [EMAIL PROTECTED]:~/parrot$ parrot test.pir
   attempt to access code outside of current code segment
   [EMAIL PROTECTED]:~/parrot$

This was the cause of some trouble recently for Partcl (although I  
didn't get the "attempt to access" error message given here - just  
some weird behavior (I think the return jumped to a different  
coroutine)).

--
Matt Diephouse