[perl #59968] [BUG] Calling Test::More sub after catching a div by zero exception segfaults

[James Keenan via RT]

Reviewing this RT today, I get a completely different problem:

$ cat seg.pir
.sub main :main
.include 'include/test_more.pir'

new P0, 'Integer'
new P2, 'Integer'
new P1, 'Integer'

set P0, 1
set P2, 0

ok( 1, 'ready...' )

push_eh handler
P1 = P0 / P2
ok( 0, "not caught" )
end
pop_eh
handler:
ok( 1, 'caught' ) # segfaults
# say "ok" # no problem with this
.end


[li11-226:parrot] 522 $ ./parrot seg.pir 
error:imcc:'P0' is only a valid register name in PASM mode
        in file 'seg.pir' line 4

Can anyone comment?

Thank you very much.
kid51