+ if S.member ACC_NATIVE flags
+ then do
+ -- TODO(bernhard): cleaner please... *do'h*
+ let sym1 = replace "/" "_" $ toString cm
+ parenth = replace "(" "_" $ replace ")" "_" $ toString $ encode sig
+ sym2 = replace ";" "_" $ replace "/" "_" parenth
+ symbol = sym1 ++ "__" ++ toString method ++ "__" ++ sym2
+ printfMp "native-call: symbol: %s\n" symbol
+ nf <- loadNativeFunction symbol
+ let w32_nf = fromIntegral nf
+ setMethodMap $ M.insert mi' w32_nf mmap
+ return nf
+ else do
+ hmap <- parseMethod cls' method sig