summaryrefslogtreecommitdiff
path: root/compiler/llvmGen/LlvmCodeGen
diff options
context:
space:
mode:
authorHerbert Valerio Riedel <hvr@gnu.org>2014-08-31 16:05:26 +0200
committerHerbert Valerio Riedel <hvr@gnu.org>2014-08-31 16:09:25 +0200
commit737f36823d03a6c9d92f56e3e2433a3961780e13 (patch)
tree251c4655db37e898ac10a31ac37735e0cb1bcd9a /compiler/llvmGen/LlvmCodeGen
parenta8a969ae7a05e408b29961d0a2ea621a16d73d3e (diff)
downloadhaskell-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.hs14
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