#1027: PIR-only segfault
--------------------+-------------------------------------------------------
Reporter: coke | Owner:
Type: bug | Status: new
Priority: normal | Milestone:
Component: none | Version: trunk
Severity: fatal | Keywords:
Lang: | Patch:
Platform: |
--------------------+-------------------------------------------------------
Description changed by coke:
Old description:
> 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
> }}}
New description:
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()
## NB: This makes sure the sub call PC is sufficiently
## different from the exception handler PC.
print "foo\n"
print "bar\n"
.return ()
handler:
.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#comment:1>
Parrot <https://trac.parrot.org/parrot/>
Parrot Development
_______________________________________________
parrot-tickets mailing list
[email protected]
http://lists.parrot.org/mailman/listinfo/parrot-tickets
