projects
/
mate.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
codegen: make use of Functor instance
[mate.git]
/
Mate
/
X86CodeGen.hs
diff --git
a/Mate/X86CodeGen.hs
b/Mate/X86CodeGen.hs
index 8ac7e7dc79d8b86e1097bd2b94d1d02d06cd89a2..af3e98d282a31e37c35e40898c70bfa487eac400 100644
(file)
--- a/
Mate/X86CodeGen.hs
+++ b/
Mate/X86CodeGen.hs
@@
-99,8
+99,8
@@
emitFromBB cls method = do
getCurrentOffset :: CodeGen e s Word32
getCurrentOffset = do
getCurrentOffset :: CodeGen e s Word32
getCurrentOffset = do
- ep <- (fromIntegral . ptrToIntPtr)
`liftM`
getEntryPoint
- offset <- fromIntegral
`liftM`
getCodeOffset
+ ep <- (fromIntegral . ptrToIntPtr)
<$>
getEntryPoint
+ offset <- fromIntegral
<$>
getCodeOffset
return $ ep + offset
emitInvoke :: Word16 -> Bool -> CodeGen e s (Maybe (Word32, TrapCause))
return $ ep + offset
emitInvoke :: Word16 -> Bool -> CodeGen e s (Maybe (Word32, TrapCause))