diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-02-22 15:05:20 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-02-24 20:55:25 -0500 |
| commit | 1b1067d14b656bbbfa7c47f156ec2700c9751549 (patch) | |
| tree | 32346e3c4c3f89117190b36364144d85dc260e05 /compiler/nativeGen/SPARC/Cond.hs | |
| parent | 354e2787be08fb6d973de1a39e58080ff8e107f8 (diff) | |
| download | haskell-1b1067d14b656bbbfa7c47f156ec2700c9751549.tar.gz | |
Modules: CmmToAsm (#13009)
Diffstat (limited to 'compiler/nativeGen/SPARC/Cond.hs')
| -rw-r--r-- | compiler/nativeGen/SPARC/Cond.hs | 54 |
1 files changed, 0 insertions, 54 deletions
diff --git a/compiler/nativeGen/SPARC/Cond.hs b/compiler/nativeGen/SPARC/Cond.hs deleted file mode 100644 index 3fbfb8603f..0000000000 --- a/compiler/nativeGen/SPARC/Cond.hs +++ /dev/null @@ -1,54 +0,0 @@ -module SPARC.Cond ( - Cond(..), - condUnsigned, - condToSigned, - condToUnsigned -) - -where - -import GhcPrelude - --- | Branch condition codes. -data Cond - = ALWAYS - | EQQ - | GE - | GEU - | GTT - | GU - | LE - | LEU - | LTT - | LU - | NE - | NEG - | NEVER - | POS - | 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 |