diff options
author | Herbert Valerio Riedel <hvr@gnu.org> | 2014-08-31 16:05:26 +0200 |
---|---|---|
committer | Herbert Valerio Riedel <hvr@gnu.org> | 2014-08-31 16:09:25 +0200 |
commit | 737f36823d03a6c9d92f56e3e2433a3961780e13 (patch) | |
tree | 251c4655db37e898ac10a31ac37735e0cb1bcd9a /compiler/llvmGen/LlvmCodeGen | |
parent | a8a969ae7a05e408b29961d0a2ea621a16d73d3e (diff) | |
download | haskell-737f36823d03a6c9d92f56e3e2433a3961780e13.tar.gz |
`M-x delete-trailing-whitespace` & `M-x untabify`...
...some files more or less recently touched by me
[ci skip]
Diffstat (limited to 'compiler/llvmGen/LlvmCodeGen')
-rw-r--r-- | compiler/llvmGen/LlvmCodeGen/CodeGen.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs index c4c24461d5..a8869d10ed 100644 --- a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs +++ b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs @@ -282,7 +282,7 @@ genCall t@(PrimTarget op) [] args' -- than a direct constant (i.e. 'i32 8') as the alignment argument for the -- memcpy & co llvm intrinsic functions. So we handle this directly now. extractLit (CmmLit (CmmInt i _)) = mkIntLit i32 i - extractLit _other = trace ("WARNING: Non constant alignment value given" ++ + extractLit _other = trace ("WARNING: Non constant alignment value given" ++ " for memcpy! Please report to GHC developers") mkIntLit i32 0 @@ -986,10 +986,10 @@ genMachOp _ op [x] = case op of MO_Shl _ -> panicOp MO_U_Shr _ -> panicOp MO_S_Shr _ -> panicOp - + MO_V_Insert _ _ -> panicOp MO_V_Extract _ _ -> panicOp - + MO_V_Add _ _ -> panicOp MO_V_Sub _ _ -> panicOp MO_V_Mul _ _ -> panicOp @@ -999,7 +999,7 @@ genMachOp _ op [x] = case op of MO_VU_Quot _ _ -> panicOp MO_VU_Rem _ _ -> panicOp - + MO_VF_Insert _ _ -> panicOp MO_VF_Extract _ _ -> panicOp @@ -1038,7 +1038,7 @@ genMachOp _ op [x] = case op of w | w < toWidth -> sameConv' expand w | w > toWidth -> sameConv' reduce _w -> return x' - + panicOp = panic $ "LLVM.CodeGen.genMachOp: non unary op encountered" ++ "with one argument! (" ++ show op ++ ")" @@ -1116,7 +1116,7 @@ genMachOp_slow _ (MO_VF_Insert l w) [val, elt, idx] = do top1 ++ top2 ++ top3) where ty = LMVector l (widthToLlvmFloat w) - + -- Binary MachOp genMachOp_slow opt op [x, y] = case op of @@ -1175,7 +1175,7 @@ genMachOp_slow opt op [x, y] = case op of MO_VU_Quot l w -> genCastBinMach (LMVector l (widthToLlvmInt w)) LM_MO_UDiv MO_VU_Rem l w -> genCastBinMach (LMVector l (widthToLlvmInt w)) LM_MO_URem - + MO_VF_Add l w -> genCastBinMach (LMVector l (widthToLlvmFloat w)) LM_MO_FAdd MO_VF_Sub l w -> genCastBinMach (LMVector l (widthToLlvmFloat w)) LM_MO_FSub MO_VF_Mul l w -> genCastBinMach (LMVector l (widthToLlvmFloat w)) LM_MO_FMul |