X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=Mate%2FMethodPool.hs;h=f0465d6e7e584e0682f738ceeb9790e801f59bb3;hb=33fee81a6dc52f54beda6819c95e7e4571613ea6;hp=134428a6f539dde5c2057cf02a1123a7610627ea;hpb=e77e74e6bbc04c523f1468d21b14167b7eb910f7;p=mate.git

diff --git a/Mate/MethodPool.hs b/Mate/MethodPool.hs
index 134428a..f0465d6 100644
--- a/Mate/MethodPool.hs
+++ b/Mate/MethodPool.hs
@@ -26,7 +26,7 @@ import Text.Printf
 
 import Mate.BasicBlocks
 import Mate.Types
-import Mate.NativeMaschine
+import Mate.NativeMachine
 import Mate.ClassPool
 import Mate.Debug
 import Mate.Utilities
@@ -35,7 +35,7 @@ foreign import ccall "dynamic"
    code_void :: FunPtr (IO ()) -> IO ()
 
 
-getMethodEntry :: CUInt -> CUInt -> IO CUInt
+getMethodEntry :: CPtrdiff -> CPtrdiff -> IO CPtrdiff
 getMethodEntry signal_from methodtable = do
   mmap <- getMethodMap
   tmap <- getTrapMap