projects
/
mate.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
92647bc
)
codegen: make use of Functor instance
author
Bernhard Urban
<lewurm@gmail.com>
Sun, 9 Sep 2012 09:59:24 +0000
(11:59 +0200)
committer
Bernhard Urban
<lewurm@gmail.com>
Sun, 9 Sep 2012 09:59:32 +0000
(11:59 +0200)
Mate/X86CodeGen.hs
patch
|
blob
|
history
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
- 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))