Commit fde773b6 authored by Simon Marlow's avatar Simon Marlow
Browse files

one more instance of the 64-bit constant bug I noticed

parent 0971055c
...@@ -352,7 +352,7 @@ iselExpr64 (CmmMachOp (MO_Add _) [e1, CmmLit (CmmInt i _)]) = do ...@@ -352,7 +352,7 @@ iselExpr64 (CmmMachOp (MO_Add _) [e1, CmmLit (CmmInt i _)]) = do
(rlo,rhi) <- getNewRegPairNat II32 (rlo,rhi) <- getNewRegPairNat II32
let let
r = fromIntegral (fromIntegral i :: Word32) r = fromIntegral (fromIntegral i :: Word32)
q = fromIntegral ((fromIntegral i `shiftR` 32) :: Word32) q = fromIntegral (fromIntegral (i `shiftR` 32) :: Word32)
r1hi = getHiVRegFromLo r1lo r1hi = getHiVRegFromLo r1lo
code = code1 `appOL` code = code1 `appOL`
toOL [ MOV II32 (OpReg r1lo) (OpReg rlo), toOL [ MOV II32 (OpReg r1lo) (OpReg rlo),
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment