Ticket #1635: handler.pir

.sub main :main
  .local pmc eh, ex
  eh = new 'ExceptionHandler'
  set_addr eh, here
  push_eh eh

  $P0 = newclass ['Foo']
  $P1 = new $P0
  say 'Before'

  # Throw from vtable override
  inc $P1
  # Throw from pir method
  #$P1.'th'()

  say 'Never'
  .return()
here:
  .get_results(ex)
  $S0 = ex['message']
  print '"'
  print $S0
  say '" caught!'
  $I0 = set_addr after

  # Use exception handler
  #eh.'rewind'($I0)
  # Use exception
  ex.'rewind'($I0)

  say 'Never'
after:
  say 'Bye'
  .return()
.end

.namespace [ 'Foo' ]

.sub th :method
  die 'From method'
.end

.sub increment :vtable
  die 'From vtable'
.end