X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;ds=sidebyside;f=Mate%2FClassPool.hs;h=58ba6c7a6080742870fbd352adeebf5bf24882cd;hb=13cf9f65321881050edb99776f29eea8580ec457;hp=ad290542d7167c57b8a4a9b29efbd149d71d212b;hpb=e77e74e6bbc04c523f1468d21b14167b7eb910f7;p=mate.git

diff --git a/Mate/ClassPool.hs b/Mate/ClassPool.hs
index ad29054..58ba6c7 100644
--- a/Mate/ClassPool.hs
+++ b/Mate/ClassPool.hs
@@ -62,7 +62,7 @@ getClassFile path = do
   ci <- getClassInfo path
   return $ ciFile ci
 
-getStaticFieldOffset :: B.ByteString -> B.ByteString -> IO CUInt
+getStaticFieldOffset :: B.ByteString -> B.ByteString -> IO CPtrdiff
 getStaticFieldOffset path field = do
   ci <- getClassInfo path
   return $ fromIntegral $ ciStaticMap ci M.! field
@@ -92,7 +92,7 @@ getObjectSize path = do
   -- one slot for "method-table-ptr"
   return $ (1 + fsize) * 4
 
-getStaticFieldAddr :: CUInt -> IO CUInt
+getStaticFieldAddr :: CPtrdiff -> IO CPtrdiff
 getStaticFieldAddr from = do
   trapmap <- getTrapMap
   let w32_from = fromIntegral from