diff options
| author | Brian Foley <bpfoley@google.com> | 2020-05-04 11:49:21 -0700 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-05-08 15:29:25 -0400 |
| commit | 6f6d72b2c382860a5f7a08779b2405da8473814c (patch) | |
| tree | 964bb8c790b674bb9db648695f9d6dd4dfb99897 /compiler/GHC/CmmToAsm | |
| parent | 9afd92512b41cf6c6de3a17b474d8d4bb01158c3 (diff) | |
| download | haskell-6f6d72b2c382860a5f7a08779b2405da8473814c.tar.gz | |
Remove further dead code found by a simple Python script.
Avoid removing some functions that are part of an API even
though they're not used in-tree at the moment.
Diffstat (limited to 'compiler/GHC/CmmToAsm')
| -rw-r--r-- | compiler/GHC/CmmToAsm/PPC/Cond.hs | 16 | ||||
| -rw-r--r-- | compiler/GHC/CmmToAsm/SPARC/Cond.hs | 27 | ||||
| -rw-r--r-- | compiler/GHC/CmmToAsm/X86/Cond.hs | 18 |
3 files changed, 0 insertions, 61 deletions
diff --git a/compiler/GHC/CmmToAsm/PPC/Cond.hs b/compiler/GHC/CmmToAsm/PPC/Cond.hs index a8f7aac877..1209307443 100644 --- a/compiler/GHC/CmmToAsm/PPC/Cond.hs +++ b/compiler/GHC/CmmToAsm/PPC/Cond.hs @@ -2,8 +2,6 @@ module GHC.CmmToAsm.PPC.Cond ( Cond(..), condNegate, condUnsigned, - condToSigned, - condToUnsigned, ) where @@ -47,17 +45,3 @@ condUnsigned LU = True condUnsigned GEU = True condUnsigned LEU = True condUnsigned _ = False - -condToSigned :: Cond -> Cond -condToSigned GU = GTT -condToSigned LU = LTT -condToSigned GEU = GE -condToSigned LEU = LE -condToSigned x = x - -condToUnsigned :: Cond -> Cond -condToUnsigned GTT = GU -condToUnsigned LTT = LU -condToUnsigned GE = GEU -condToUnsigned LE = LEU -condToUnsigned x = x diff --git a/compiler/GHC/CmmToAsm/SPARC/Cond.hs b/compiler/GHC/CmmToAsm/SPARC/Cond.hs index 035de3dd7e..01d5baad75 100644 --- a/compiler/GHC/CmmToAsm/SPARC/Cond.hs +++ b/compiler/GHC/CmmToAsm/SPARC/Cond.hs @@ -1,8 +1,5 @@ module GHC.CmmToAsm.SPARC.Cond ( Cond(..), - condUnsigned, - condToSigned, - condToUnsigned ) where @@ -28,27 +25,3 @@ data Cond | VC | VS deriving Eq - - -condUnsigned :: Cond -> Bool -condUnsigned GU = True -condUnsigned LU = True -condUnsigned GEU = True -condUnsigned LEU = True -condUnsigned _ = False - - -condToSigned :: Cond -> Cond -condToSigned GU = GTT -condToSigned LU = LTT -condToSigned GEU = GE -condToSigned LEU = LE -condToSigned x = x - - -condToUnsigned :: Cond -> Cond -condToUnsigned GTT = GU -condToUnsigned LTT = LU -condToUnsigned GE = GEU -condToUnsigned LE = LEU -condToUnsigned x = x diff --git a/compiler/GHC/CmmToAsm/X86/Cond.hs b/compiler/GHC/CmmToAsm/X86/Cond.hs index 424a1718b0..c91281e6a8 100644 --- a/compiler/GHC/CmmToAsm/X86/Cond.hs +++ b/compiler/GHC/CmmToAsm/X86/Cond.hs @@ -1,7 +1,5 @@ module GHC.CmmToAsm.X86.Cond ( Cond(..), - condUnsigned, - condToSigned, condToUnsigned, maybeFlipCond, maybeInvertCond @@ -31,22 +29,6 @@ data Cond | NOTPARITY deriving Eq -condUnsigned :: Cond -> Bool -condUnsigned GU = True -condUnsigned LU = True -condUnsigned GEU = True -condUnsigned LEU = True -condUnsigned _ = False - - -condToSigned :: Cond -> Cond -condToSigned GU = GTT -condToSigned LU = LTT -condToSigned GEU = GE -condToSigned LEU = LE -condToSigned x = x - - condToUnsigned :: Cond -> Cond condToUnsigned GTT = GU condToUnsigned LTT = LU |