diff options
| author | Gabor Greif <ggreif@gmail.com> | 2017-06-09 15:55:41 +0200 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2017-06-13 12:05:09 +0200 |
| commit | 0058a3490fc3908e00ba65e700fecc54b786e28a (patch) | |
| tree | 3962e71aa648fbc9684928674d5d561abf13d9d1 /compiler | |
| parent | af9612bf862daaa99384eefa3059054053ecbee8 (diff) | |
| download | haskell-0058a3490fc3908e00ba65e700fecc54b786e28a.tar.gz | |
Typos [ci skip]
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/llvmGen/LlvmCodeGen/CodeGen.hs | 2 | ||||
| -rw-r--r-- | compiler/specialise/Specialise.hs | 2 |
2 files changed, 2 insertions, 2 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 diff --git a/compiler/specialise/Specialise.hs b/compiler/specialise/Specialise.hs index a1ee94c59e..869da640ea 100644 --- a/compiler/specialise/Specialise.hs +++ b/compiler/specialise/Specialise.hs @@ -1854,7 +1854,7 @@ We gather the call info for (f @T $df), and we don't want to drop it when we come across the binding for $df. So we add $df to the floats and continue. But then we have to add $c== to the floats, and so on. These all float above the binding for 'f', and and now we can -successfullly specialise 'f'. +successfully specialise 'f'. So the DictBinds in (ud_binds :: Bag DictBind) may contain non-dictionary bindings too. |