From: Bernhard Urban <lewurm@gmail.com>
Date: Thu, 9 Aug 2012 14:17:28 +0000 (+0200)
Subject: basicblock: stupid index bug @ debug output
X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=mate.git;a=commitdiff_plain;h=da537644f4ae79ee53f22d21da1583df76b30a66

basicblock: stupid index bug @ debug output
---

diff --git a/Mate/BasicBlocks.hs b/Mate/BasicBlocks.hs
index c2bdcd7..996c672 100644
--- a/Mate/BasicBlocks.hs
+++ b/Mate/BasicBlocks.hs
@@ -105,7 +105,7 @@ parseMethod cls methodname sig = do
   let nametype = methodNameType methoddirect
   let argscount = methodGetArgsCount nametype + (if isStatic then 0 else 1)
 
-  let msig = methodSignature $ classMethods cls !! 1
+  let msig = methodSignature method
   printfBb "BB: analysing \"%s\"\n" $ toString (methodname `B.append` ": " `B.append` encode msig)
 #ifdef DBG_BB
   printMapBB mapbb