#1027: PIR-only segfault
--------------------+-------------------------------------------------------
Reporter: coke | Owner:
Type: bug | Status: new
Priority: normal | Milestone:
Component: none | Version: trunk
Severity: fatal | Keywords:
Lang: | Patch:
Platform: |
--------------------+-------------------------------------------------------
See [http://rt.perl.org/rt3/Ticket/Display.html?id=59614 Original Ticket].
This code segfaults in trunk:
{{{
.sub main :main
push_eh handler
test()
pop_eh
## NB: This makes sure the sub call PC is sufficiently
## different from the exception handler PC.
print "foo\n"
print "bar\n"
.return ()
handler:
pop_eh
.local pmc exception
.local string message
.get_results (exception, message)
print "Error: "
print message
.end
.sub test
## Throw an exception.
$P0 = new 'Exception'
$P0 = 'oops'
throw $P0
.end
}}}
--
Ticket URL: <https://trac.parrot.org/parrot/ticket/1027>
Parrot <https://trac.parrot.org/parrot/>
Parrot Development
_______________________________________________
parrot-tickets mailing list
[email protected]
http://lists.parrot.org/mailman/listinfo/parrot-tickets
