(Just (InstanceOf patcher)) ->
patchWithHarpy (patcher reax) reip >>= delFalse
(Just (ThrowException patcher)) ->
(Just (InstanceOf patcher)) ->
patchWithHarpy (patcher reax) reip >>= delFalse
(Just (ThrowException patcher)) ->
(Just (NewObject patcher)) ->
patchWithHarpy patcher reip >>= delTrue
(Just (VirtualCall False mi io_offset)) ->
(Just (NewObject patcher)) ->
patchWithHarpy patcher reip >>= delTrue
(Just (VirtualCall False mi io_offset)) ->
- _ -> error $ "getTrapType: abort :-( " ++ showHex reip ". "
- ++ concatMap (`showHex` ", ") (M.keys tmap)
+ _ -> error $ "getTrapType: abort :-( eip: "
+ ++ showHex reip ". " ++ concatMap (`showHex` ", ") (M.keys tmap)
vmap <- liftIO getVirtualMap
let newmi = MethodInfo methname (vmap M.! fromIntegral method_table) msig
offset <- liftIO io_offset
vmap <- liftIO getVirtualMap
let newmi = MethodInfo methname (vmap M.! fromIntegral method_table) msig
offset <- liftIO io_offset