summaryrefslogtreecommitdiff
path: root/compiler/llvmGen/LlvmCodeGen/CodeGen.hs
diff options
context:
space:
mode:
authorGabor Greif <ggreif@gmail.com>2017-06-09 15:55:41 +0200
committerGabor Greif <ggreif@gmail.com>2017-06-13 12:05:09 +0200
commit0058a3490fc3908e00ba65e700fecc54b786e28a (patch)
tree3962e71aa648fbc9684928674d5d561abf13d9d1 /compiler/llvmGen/LlvmCodeGen/CodeGen.hs
parentaf9612bf862daaa99384eefa3059054053ecbee8 (diff)
downloadhaskell-0058a3490fc3908e00ba65e700fecc54b786e28a.tar.gz
Typos [ci skip]
Diffstat (limited to 'compiler/llvmGen/LlvmCodeGen/CodeGen.hs')
-rw-r--r--compiler/llvmGen/LlvmCodeGen/CodeGen.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs
index 03813248ae..bf84782537 100644
--- a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs
+++ b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs
@@ -506,7 +506,7 @@ genCallExtract
:: ForeignTarget -- ^ PrimOp
-> Width -- ^ Width of the operands.
-> (CmmActual, CmmActual) -- ^ Actual arguments.
- -> (LlvmType, LlvmType) -- ^ LLLVM types of the returned sturct.
+ -> (LlvmType, LlvmType) -- ^ LLVM types of the returned struct.
-> LlvmM (LlvmVar, LlvmVar, StmtData)
genCallExtract target@(PrimTarget op) w (argA, argB) (llvmTypeA, llvmTypeB) = do
let width = widthToLlvmInt w