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/X86/Cond.hs | |
| 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/X86/Cond.hs')
| -rw-r--r-- | compiler/GHC/CmmToAsm/X86/Cond.hs | 18 |
1 files changed, 0 insertions, 18 deletions
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 |