PIR-only segfault

[coke]

See  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

[NotFound]

The problem is that .get_results (exception, message) is an error, and throws an exception. The exception is catched by the same handler, and throws again, and is catched...

[coke]

This TODO was uncommented in r42023 by mikehh; resolving ticket.