diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-07-21 14:29:26 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-07-21 14:58:23 +0100 |
| commit | fde773b672dde38763ea01dd7a5aa414673082a1 (patch) | |
| tree | c06d22318d8b755f20dafc38119706421ae34504 /compiler/nativeGen | |
| parent | 0971055c2745b0cb2e167167ceb7a614ea5f8aca (diff) | |
| download | haskell-fde773b672dde38763ea01dd7a5aa414673082a1.tar.gz | |
one more instance of the 64-bit constant bug I noticed
Diffstat (limited to 'compiler/nativeGen')
| -rw-r--r-- | 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 75d821bb08..6ab7cff93b 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), |