X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=mate.git;a=blobdiff_plain;f=Mate%2FMethodPool.hs;fp=Mate%2FMethodPool.hs;h=db83f98b51465b917c3795da42a6dc8439d3ce11;hp=b5a6946483d3bc28c6597ee085f9c9544e68a497;hb=b4cb8e6b7b66e82580b0637ec5a9d9b7531121b4;hpb=2ac2a68eb5b709caa636d1a9a56a40268d378550

diff --git a/Mate/MethodPool.hs b/Mate/MethodPool.hs
index b5a6946..db83f98 100644
--- a/Mate/MethodPool.hs
+++ b/Mate/MethodPool.hs
@@ -137,6 +137,7 @@ compileBB rawmethod methodinfo = do
   tmap <- getTrapMap
 
   cls <- getClassFile (methClassName methodinfo)
+  printfJit $ printf "emit code of \"%s\" from \"%s\":\n" (toString $ methName methodinfo) (toString $ methClassName methodinfo)
   let ebb = emitFromBB cls rawmethod
   let cgconfig = defaultCodeGenConfig { codeBufferSize = fromIntegral $ rawCodeLength rawmethod * 32 }
   (_, Right right) <- runCodeGenWithConfig ebb () () cgconfig