- hmap <- parseMethod cls "main" $ methodSignature m
- case hmap of
- Just hmap' -> do
- entry <- compileBB hmap' mi
- addMethodRef entry mi [bclspath]
-#ifdef DEBUG
- printf "executing `main' now:\n"
-#endif
- executeFuncPtr entry
- Nothing -> error "main not found"
+ rawmethod <- parseMethod cls "main" $ methodSignature m
+ entry <- compileBB mi rawmethod mi
+ addMethodRef entry mi [bclspath]
+ printfInfo "executing `main' now:\n"
+ executeFuncPtr $ fst entry