- case M.lookup (fromIntegral reip) tmap of
- (Just (StaticMethod _)) -> patchWithHarpy patchStaticCall reip
- (Just (StaticField _)) -> staticFieldHandler reip
- (Just (InstanceOf cn)) -> patchWithHarpy (`patchInstanceOf` cn) reip
- (Just (NewObject cn)) -> patchWithHarpy (`patchNewObject` cn) reip
+ let reipw32 = fromIntegral reip
+ (deleteMe, ret_nreip) <- case M.lookup reipw32 tmap of
+ (Just (StaticMethod _)) ->
+ patchWithHarpy patchStaticCall reip >>= delTrue
+ (Just (StaticField _)) ->
+ staticFieldHandler reip >>= delTrue
+ (Just (InstanceOf cn)) ->
+ patchWithHarpy (`patchInstanceOf` cn) reip >>= delFalse
+ (Just (NewObject cn)) ->
+ patchWithHarpy (`patchNewObject` cn) reip >>= delTrue