diff options
| -rw-r--r-- | compiler/codeGen/StgCmmPrim.hs | 6 | ||||
| -rw-r--r-- | compiler/llvmGen/LlvmCodeGen/CodeGen.hs | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/compiler/codeGen/StgCmmPrim.hs b/compiler/codeGen/StgCmmPrim.hs index 9da472e768..75d46b5b3a 100644 --- a/compiler/codeGen/StgCmmPrim.hs +++ b/compiler/codeGen/StgCmmPrim.hs @@ -881,7 +881,7 @@ callishPrimOpSupported dflags op Right (genericIntQuotRemOp (wordWidth dflags)) Int8QuotRemOp | (ncg && x86ish) - || llvm -> Left (MO_S_QuotRem W8) + -> Left (MO_S_QuotRem W8) | otherwise -> Right (genericIntQuotRemOp W8) WordQuotRemOp | ncg && (x86ish || ppc) -> @@ -895,8 +895,8 @@ callishPrimOpSupported dflags op | otherwise -> Right (genericWordQuotRem2Op dflags) Word8QuotRemOp | (ncg && x86ish) - || llvm -> Left (MO_U_QuotRem W8) - | otherwise -> Right (genericWordQuotRemOp W8) + -> Left (MO_U_QuotRem W8) + | otherwise -> Right (genericWordQuotRemOp W8) WordAdd2Op | (ncg && (x86ish || ppc)) diff --git a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs index efc870993c..d24075ec7c 100644 --- a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs +++ b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs @@ -1194,7 +1194,7 @@ genMachOp _ op [x] = case op of -> sameConv from (widthToLlvmInt to) LM_Trunc LM_Zext MO_XX_Conv from to - -> sameConv from (widthToLlvmInt to) LM_Bitcast LM_Bitcast + -> sameConv from (widthToLlvmInt to) LM_Trunc LM_Zext MO_FF_Conv from to -> sameConv from (widthToLlvmFloat to) LM_Fptrunc LM_Fpext |