From 1b1067d14b656bbbfa7c47f156ec2700c9751549 Mon Sep 17 00:00:00 2001
From: Sylvain Henry <sylvain@haskus.fr>
Date: Sat, 22 Feb 2020 15:05:20 +0100
Subject: Modules: CmmToAsm (#13009)

---
 compiler/nativeGen/SPARC/Cond.hs | 54 ----------------------------------------
 1 file changed, 54 deletions(-)
 delete mode 100644 compiler/nativeGen/SPARC/Cond.hs

(limited to 'compiler/nativeGen/SPARC/Cond.hs')

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
-- 
cgit v1.2.1