diff options
| author | Peter Trommler <ptrommler@acm.org> | 2019-02-06 22:31:20 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-02-10 08:42:09 -0500 |
| commit | 07f5cbc8cc61436cd5f3e9280191bad5480203c5 (patch) | |
| tree | 04ca58255955973bc20d093758425fe057ccb99f | |
| parent | f53ef1a72fdebeff19d4a4bd5552d25101c85147 (diff) | |
| download | haskell-07f5cbc8cc61436cd5f3e9280191bad5480203c5.tar.gz | |
Fix Int overflow on 32 bit platform
| -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 9591c42ede..abd4995376 100644 --- a/compiler/nativeGen/X86/CodeGen.hs +++ b/compiler/nativeGen/X86/CodeGen.hs @@ -2129,7 +2129,7 @@ genCCall dflags is32Bit (PrimTarget (MO_Ctz width)) [dst] [src] bid src_r <- getNewRegNat (intFormat width) return $ appOL (code_src src_r) $ case width of W8 -> toOL - [ OR II32 (OpImm (ImmInt 0xFFFFFF00)) (OpReg src_r) + [ OR II32 (OpImm (ImmInteger 0xFFFFFF00)) (OpReg src_r) , TZCNT II32 (OpReg src_r) dst_r ] W16 -> toOL |