From da537644f4ae79ee53f22d21da1583df76b30a66 Mon Sep 17 00:00:00 2001
From: Bernhard Urban <lewurm@gmail.com>
Date: Thu, 9 Aug 2012 16:17:28 +0200
Subject: [PATCH] basicblock: stupid index bug @ debug output

---
 Mate/BasicBlocks.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
2.25.1