diff options
Diffstat (limited to 'compiler/GHC/CmmToAsm/SPARC/Cond.hs')
| -rw-r--r-- | compiler/GHC/CmmToAsm/SPARC/Cond.hs | 27 |
1 files changed, 0 insertions, 27 deletions
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 |