codegen: map each real PC to java bytecode PC

[mate.git] / Mate / ClassPool.hs

diff --git a/Mate/ClassPool.hs b/Mate/ClassPool.hs
index 0f235c01044eb1dc5a2935c3eb9a6574c73dacc6..baf49a3d6eca25a762c5c06952695e747c827f46 100644 (file)
--- a/Mate/ClassPool.hs
+++ b/Mate/ClassPool.hs
@@ -278,7 +278,7 @@ loadAndInitClass path = do
       entry <- compileBB rawmethod mi
       addMethodRef entry mi [path]
       printfCp $ printf "executing static initializer from %s now\n" (toString path)
-      executeFuncPtr entry
+      executeFuncPtr $ fst entry
       printfCp $ printf "static initializer from %s done\n" (toString path)
     Nothing -> return ()