X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=mate.git;a=blobdiff_plain;f=Mate%2FMethodPool.hs;h=f7038f3b1e1afdaa640d274ba1c5e2c39a4a954c;hp=7a0cda170964a761e50affbfe0a3c31d43e940d0;hb=be380d1452ca0ac7be1dc0d593b674d8db7707da;hpb=e956c113f38ae5cf78d79cf00de776f0331a332c

diff --git a/Mate/MethodPool.hs b/Mate/MethodPool.hs
index 7a0cda1..f7038f3 100644
--- a/Mate/MethodPool.hs
+++ b/Mate/MethodPool.hs
@@ -50,7 +50,10 @@ getMethodEntry signal_from methodtable = do
           (InterfaceMethod _ (MethodInfo methname _ msig)) -> newMi methname msig
           _ -> error "getMethodEntry: no TrapCause found. abort."
         where newMi mn = MethodInfo mn (vmap M.! fromIntegral methodtable)
-  setTrapMap $ M.delete w32_from tmap
+  -- bernhard (TODO): doesn't work with gnu classpath at some point. didn't
+  --                  figured out the problem yet :/ therefore, I have no
+  --                  testcase for replaying the situation.
+  -- setTrapMap $ M.delete w32_from tmap
   case M.lookup mi' mmap of
     Nothing -> do
       cls <- getClassFile cm