test: Eq/Ord RealRegUsage

compiler/GHC/CmmToAsm/Reg/Linear/Base.hs

@@ -39,6 +39,8 @@ import GHC.Cmm.Dataflow.Label
 import GHC.CmmToAsm.Reg.Utils
 import GHC.CmmToAsm.Format
 
+import Data.Function ( on )
+
 data ReadingOrWriting = Reading | Writing deriving (Eq,Ord)
 
 -- | Used to store the register assignment on entry to a basic block.
@@ -105,13 +107,18 @@ data Loc
         -- | vreg is held in both a register and stack slots
         | InBoth   {-# UNPACK #-} !RealRegUsage
                    {-# UNPACK #-} !StackSlot
-        deriving (Eq, Show, Ord)
+        deriving (Eq, Ord, Show)
 
 data RealRegUsage
   = RealRegUsage
     { realReg :: !RealReg
     , realRegFormat :: !Format
-    } deriving (Eq, Show, Ord)
+    } deriving Show
+
+instance Eq RealRegUsage where
+  (==) = (==) `on` realReg
+instance Ord RealRegUsage where
+  compare = compare `on` realReg
 
 instance Outputable Loc where
         ppr l = text (show l)