trapmap <- getTrapMap
let w32_from = fromIntegral from
let sfi = trapmap M.! w32_from
+ setTrapMap $ M.delete w32_from trapmap
case sfi of
(SFI (StaticFieldInfo cls field)) -> getStaticFieldOffset cls field
_ -> error "getFieldAddr: no trapInfo. abort"
-- execute class initializer
case lookupMethod "<clinit>" (ciFile ci) of
Just m -> do
- hmap <- parseMethod (ciFile ci) "<clinit>"
+ hmap <- parseMethod (ciFile ci) "<clinit>" $ MethodSignature [] ReturnsVoid
case hmap of
Just hmap' -> do
let mi = MethodInfo "<clinit>" path (methodSignature m)