diff options
| author | David Terei <davidterei@gmail.com> | 2010-06-28 14:40:37 +0000 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2010-06-28 14:40:37 +0000 |
| commit | 20ea4cf4993aa7b0b19c882fd98503a4b7f307d3 (patch) | |
| tree | 4be96b4987f6591205f3a7cedb07a39f4e4ae602 /compiler/llvmGen/LlvmCodeGen | |
| parent | 439cda45847149cb740e7e7a288c90c5e7743cf8 (diff) | |
| download | haskell-20ea4cf4993aa7b0b19c882fd98503a4b7f307d3.tar.gz | |
LLVM: Update to use new fp ops introduced in 2.7
Diffstat (limited to 'compiler/llvmGen/LlvmCodeGen')
| -rw-r--r-- | compiler/llvmGen/LlvmCodeGen/CodeGen.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs index 41bc8ee758..2ebd5d9bb8 100644 --- a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs +++ b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs @@ -571,7 +571,7 @@ genMachOp env _ op [x] = case op of MO_F_Neg w -> let all0 = LMLitVar $ LMFloatLit (-0) (widthToLlvmFloat w) - in negate (widthToLlvmFloat w) all0 LM_MO_Sub + in negate (widthToLlvmFloat w) all0 LM_MO_FSub MO_SF_Conv _ w -> fiConv (widthToLlvmFloat w) LM_Sitofp MO_FS_Conv _ w -> fiConv (widthToLlvmInt w) LM_Fptosi @@ -649,9 +649,9 @@ genMachOp env opt op [x, y] = case op of MO_F_Lt _ -> genBinComp opt LM_CMP_Flt MO_F_Le _ -> genBinComp opt LM_CMP_Fle - MO_F_Add _ -> genBinMach LM_MO_Add - MO_F_Sub _ -> genBinMach LM_MO_Sub - MO_F_Mul _ -> genBinMach LM_MO_Mul + MO_F_Add _ -> genBinMach LM_MO_FAdd + MO_F_Sub _ -> genBinMach LM_MO_FSub + MO_F_Mul _ -> genBinMach LM_MO_FMul MO_F_Quot _ -> genBinMach LM_MO_FDiv MO_And _ -> genBinMach LM_MO_And |