-- execute class initializer
case lookupMethod "<clinit>" (ciFile ci) of
Just m -> do
- hmap <- parseMethod (ciFile ci) "<clinit>" $ MethodSignature [] ReturnsVoid
- case hmap of
- Just hmap' -> do
+ method <- parseMethod (ciFile ci) "<clinit>" $ MethodSignature [] ReturnsVoid
+ case method of
+ Just rawmethod -> do
let mi = MethodInfo "<clinit>" path (methodSignature m)
- entry <- compileBB hmap' mi
+ entry <- compileBB rawmethod mi
addMethodRef entry mi [path]
printfCp "executing static initializer from %s now\n" (toString path)
executeFuncPtr entry