[perl #60166] [BUG] Exception handling in parrot doesn't unwind stack.

[via RT]

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


Hello.

Exception handling in parrot doesn't unwind used stack frames.

Simple example:

.sub 'main'
     .local pmc i
     i = new 'Integer'
   do_loop:
     say i
     push_eh do_inc
     $P0 = find_method i, "succ"
     i.$P0()
     pop_eh
   do_inc:
     inc i
     goto do_loop
.end

$ ./parrot ex.pir
1
2
...
16353
16354
16355
Segmentation fault
$

-- 
Bacek