#1151: Exception thrown from constructor leads to oddness
--------------------+-------------------------------------------------------
Reporter: coke | Owner:
Type: bug | Status: new
Priority: normal | Milestone:
Component: none | Version: trunk
Severity: medium | Keywords:
Lang: | Patch:
Platform: |
--------------------+-------------------------------------------------------
This code should generate:
{{{
ok #test exception from init vtable
}}}
but instead generates
{{{
ok #test exception from init vtable
not No handler to delete.
}}}
{{{
.sub main :main
.local pmc type
newclass type, 'Parent'
.local pmc obj, exception
.local string message
message = 'no error'
push_eh handler
obj = new 'Parent'
print 'not '
pop_eh
goto finally
handler:
.get_results(exception)
pop_eh
message = exception
finally:
print "ok #"
say message
.end
.namespace ['Parent']
.sub 'init' :vtable
die 'test exception from init vtable'
.end
}}}
Originally opened as http://rt.perl.org/rt3/Ticket/Display.html?id=38432
--
Ticket URL: <https://trac.parrot.org/parrot/ticket/1151>
Parrot <https://trac.parrot.org/parrot/>
Parrot Development
_______________________________________________
parrot-tickets mailing list
[email protected]
http://lists.parrot.org/mailman/listinfo/parrot-tickets
