codegen: map each real PC to java bytecode PC

[mate.git] / Mate.hs

diff --git a/Mate.hs b/Mate.hs
index a191048495b26244a1ceab9bcd226d6e0289fb1a..e93fea493e6d5a527dfe32a9e92ddc92c2c5ad9a 100644 (file)
--- a/Mate.hs
+++ b/Mate.hs
@@ -70,5 +70,5 @@ executeMain bclspath cls = do
       entry <- compileBB rawmethod mi
       addMethodRef entry mi [bclspath]
       printfInfo "executing `main' now:\n"
-      executeFuncPtr entry
+      executeFuncPtr $ fst entry
     Nothing -> error "main not found"