-data TrapCause =
- StaticMethod MethodInfo | -- for static calls
- VirtualMethod Bool MethodInfo | -- for virtual calls
- InterfaceMethod Bool MethodInfo | -- for interface calls
- StaticField StaticFieldInfo deriving Show
+data TrapCause
+ = StaticMethod MethodInfo -- for static calls
+ | VirtualCall Bool MethodInfo (IO NativeWord) -- for invoke{interface,virtual}
+ | InstanceOf B.ByteString -- class name
+ | NewObject B.ByteString -- class name
+ | StaticField StaticFieldInfo