diff options
| author | Geoffrey Mainland <gmainlan@microsoft.com> | 2012-10-31 15:42:01 +0000 |
|---|---|---|
| committer | Geoffrey Mainland <gmainlan@microsoft.com> | 2013-02-01 22:00:24 +0000 |
| commit | 33bfc6a700eaab9bc06974d6f71a80e61d9177c9 (patch) | |
| tree | 842bf82b7dbdafe04820349e5e991800a3cf0646 /compiler/llvmGen/LlvmCodeGen/Base.hs | |
| parent | 1811440833da92eefd7b7255915855fddc64994c (diff) | |
| download | haskell-33bfc6a700eaab9bc06974d6f71a80e61d9177c9.tar.gz | |
Add support for passing SSE vectors in registers.
This patch adds support for 6 XMM registers on x86-64 which overlap with the F
and D registers and may hold 128-bit wide SIMD vectors. Because there is not a
good way to attach type information to STG registers, we aggressively bitcast in
the LLVM back-end.
Diffstat (limited to 'compiler/llvmGen/LlvmCodeGen/Base.hs')
| -rw-r--r-- | compiler/llvmGen/LlvmCodeGen/Base.hs | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/compiler/llvmGen/LlvmCodeGen/Base.hs b/compiler/llvmGen/LlvmCodeGen/Base.hs index 1457efe3cb..bcfce3401e 100644 --- a/compiler/llvmGen/LlvmCodeGen/Base.hs +++ b/compiler/llvmGen/LlvmCodeGen/Base.hs @@ -131,11 +131,12 @@ llvmFunArgs :: DynFlags -> LiveGlobalRegs -> [LlvmVar] llvmFunArgs dflags live = map (lmGlobalRegArg dflags) (filter isPassed (activeStgRegs platform)) where platform = targetPlatform dflags - isLive r = not (isFloat r) || r `elem` alwaysLive || r `elem` live - isPassed r = not (isFloat r) || isLive r - isFloat (FloatReg _) = True - isFloat (DoubleReg _) = True - isFloat _ = False + isLive r = not (isSSE r) || r `elem` alwaysLive || r `elem` live + isPassed r = not (isSSE r) || isLive r + isSSE (FloatReg _) = True + isSSE (DoubleReg _) = True + isSSE (XmmReg _) = True + isSSE _ = False -- | Llvm standard fun attributes llvmStdFunAttrs :: [LlvmFuncAttr] |