[commit: ghc] wip/kavon-llvm-improve: remove redundant isSSE def (ff5fd9c)

git at git.haskell.org git at git.haskell.org
Mon Oct 1 00:10:26 UTC 2018


Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/kavon-llvm-improve
Link       : http://ghc.haskell.org/trac/ghc/changeset/ff5fd9c637506d6e780d1ee4d54c745b97f1dc2b/ghc

>---------------------------------------------------------------

commit ff5fd9c637506d6e780d1ee4d54c745b97f1dc2b
Author: Kavon Farvardin <kavon at farvard.in>
Date:   Sun Sep 30 19:09:38 2018 -0500

    remove redundant isSSE def


>---------------------------------------------------------------

ff5fd9c637506d6e780d1ee4d54c745b97f1dc2b
 compiler/llvmGen/LlvmCodeGen/Base.hs | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/compiler/llvmGen/LlvmCodeGen/Base.hs b/compiler/llvmGen/LlvmCodeGen/Base.hs
index ac75409..ec91bac 100644
--- a/compiler/llvmGen/LlvmCodeGen/Base.hs
+++ b/compiler/llvmGen/LlvmCodeGen/Base.hs
@@ -155,9 +155,6 @@ llvmFunArgs dflags live =
           paddedLive = map (\(_,r) -> r) $ padLiveArgs live
           isLive r = r `elem` alwaysLive || r `elem` paddedLive
           isPassed r = not (isSSE r) || isLive r
-          isSSE r
-            | Just _ <- sseRegNum r = True
-            | otherwise = False
 
 
 isSSE :: GlobalReg -> Bool



More information about the ghc-commits mailing list