let mi'@(MethodInfo method cm sig) =
case mi of
(StaticMethod x) -> x
- (VirtualMethod _ (MethodInfo methname _ msig)) -> newMi methname msig
- (InterfaceMethod _ (MethodInfo methname _ msig)) -> newMi methname msig
+ (VirtualCall _ (MethodInfo methname _ msig) _) -> newMi methname msig
_ -> error "getMethodEntry: no TrapCause found. abort."
where newMi mn = MethodInfo mn (vmap M.! fromIntegral methodtable)
-- bernhard (TODO): doesn't work with gnu classpath at some point. didn't
cls <- getClassFile (methClassName methodinfo)
let ebb = emitFromBB cls rawmethod
- (_, Right right) <- runCodeGen ebb () ()
+ let cgconfig = defaultCodeGenConfig { codeBufferSize = fromIntegral $ (rawCodeLength rawmethod) * 32 }
+ (_, Right right) <- runCodeGenWithConfig ebb () () cgconfig
let ((entry, _, _, new_tmap), _) = right
setTrapMap $ tmap `M.union` new_tmap -- prefers elements in tmap