projects
/
mate.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
nativeMaschine: s/unsigned int/ptrdiff_t/g
[mate.git]
/
Mate
/
ClassPool.hs
diff --git
a/Mate/ClassPool.hs
b/Mate/ClassPool.hs
index ad290542d7167c57b8a4a9b29efbd149d71d212b..58ba6c7a6080742870fbd352adeebf5bf24882cd 100644
(file)
--- a/
Mate/ClassPool.hs
+++ b/
Mate/ClassPool.hs
@@
-62,7
+62,7
@@
getClassFile path = do
ci <- getClassInfo path
return $ ciFile ci
ci <- getClassInfo path
return $ ciFile ci
-getStaticFieldOffset :: B.ByteString -> B.ByteString -> IO C
UInt
+getStaticFieldOffset :: B.ByteString -> B.ByteString -> IO C
Ptrdiff
getStaticFieldOffset path field = do
ci <- getClassInfo path
return $ fromIntegral $ ciStaticMap ci M.! field
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
-- one slot for "method-table-ptr"
return $ (1 + fsize) * 4
-getStaticFieldAddr :: C
UInt -> IO CUInt
+getStaticFieldAddr :: C
Ptrdiff -> IO CPtrdiff
getStaticFieldAddr from = do
trapmap <- getTrapMap
let w32_from = fromIntegral from
getStaticFieldAddr from = do
trapmap <- getTrapMap
let w32_from = fromIntegral from