let nametype = methodNameType methoddirect
let argscount = methodGetArgsCount nametype + (if isStatic then 0 else 1)
- let msig = methodSignature $ classMethods cls !! 1
+ let msig = methodSignature method
printfBb "BB: analysing \"%s\"\n" $ toString (methodname `B.append` ": " `B.append` encode msig)
#ifdef DBG_BB
- case maybe_bb of
- Just m -> printMapBB $ rawMapBB m
- Nothing -> return ()
+ printMapBB mapbb
#endif
-- small example how to get information about
-- exceptions of a method