Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : ghc-7.2
http://hackage.haskell.org/trac/ghc/changeset/37541d8f2491e71ad0316eb3c8c9e034142aded5 >--------------------------------------------------------------- commit 37541d8f2491e71ad0316eb3c8c9e034142aded5 Author: Simon Marlow <[email protected]> Date: Thu Jul 21 14:29:26 2011 +0100 one more instance of the 64-bit constant bug I noticed >--------------------------------------------------------------- compiler/nativeGen/X86/CodeGen.hs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/nativeGen/X86/CodeGen.hs b/compiler/nativeGen/X86/CodeGen.hs index 75d821b..6ab7cff 100644 --- a/compiler/nativeGen/X86/CodeGen.hs +++ b/compiler/nativeGen/X86/CodeGen.hs @@ -352,7 +352,7 @@ iselExpr64 (CmmMachOp (MO_Add _) [e1, CmmLit (CmmInt i _)]) = do (rlo,rhi) <- getNewRegPairNat II32 let r = fromIntegral (fromIntegral i :: Word32) - q = fromIntegral ((fromIntegral i `shiftR` 32) :: Word32) + q = fromIntegral (fromIntegral (i `shiftR` 32) :: Word32) r1hi = getHiVRegFromLo r1lo code = code1 `appOL` toOL [ MOV II32 (OpReg r1lo) (OpReg rlo), _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
