diff options
author | tomsmeding <tom.smeding@gmail.com> | 2017-08-21 15:02:54 +0200 |
---|---|---|
committer | tomsmeding <tom.smeding@gmail.com> | 2017-08-21 15:02:54 +0200 |
commit | 3fd304ea2272432a435e6c877ce002ff3d4c77df (patch) | |
tree | 495a88524998d1353ff528bb99cd369fc7fc4bc9 /CodeGen.hs | |
parent | 5aea0d2034c47380bbdd588806efbd5c9c85d765 (diff) |
Seventh
Diffstat (limited to 'CodeGen.hs')
-rw-r--r-- | CodeGen.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -177,9 +177,9 @@ mkxref r m = fromJust $ Map.lookup r m mkmov :: XRef -> XRef -> X64.Ins mkmov a@(XReg _ _) b@(XReg _ _) = MOV (xref a) (xref b) mkmov a@(XReg _ _) b@(XMem _ _ _ _ _) = MOV (xref a) (xref b) -mkmov a@(XReg _ _) b@(XImm _) = MOVi64 (xref a) (xref b) +mkmov a@(XReg _ _) b@(XImm _) = MOVi (xref a) (xref b) mkmov a@(XMem _ _ _ _ _) b@(XReg _ _) = MOV (xref a) (xref b) -mkmov a@(XMem _ _ _ _ _) b@(XImm v) | v < 2 ^ (32 :: Int) = MOVi (xref a) (xref b) +mkmov a@(XMem _ _ _ _ _) b@(XImm v) | v < 2 ^ (32 :: Int) = MOV (xref a) (xref b) mkmov a b = CALL $ "Invalid mkmov: " ++ show a ++ "; " ++ show b -- mkmov a b = error $ "Invalid mkmov: " ++ show a ++ "; " ++ show b |