Remove dead code

compiler/cmm/CmmCallConv.hs

@@ -3,7 +3,7 @@ module CmmCallConv (
   ParamLocation(..),
   assignArgumentsPos,
   assignStack,
-  globalArgRegs, realArgRegsCover
+  realArgRegsCover
 ) where
 
 #include "HsVersions.h"
@@ -173,12 +173,6 @@ allRegs dflags = (allVanillaRegs dflags,
 nodeOnly :: AvailRegs
 nodeOnly = ([VanillaReg 1], [], [], [], [])
 
-globalArgRegs :: DynFlags -> [GlobalReg]
-globalArgRegs dflags = map ($ VGcPtr) (allVanillaRegs dflags) ++
-                       allFloatRegs dflags ++
-                       allDoubleRegs dflags ++
-                       allLongRegs dflags
-
 -- This returns the set of global registers that *cover* the machine registers
 -- used for argument passing. On platforms where registers can overlap---right
 -- now just x86-64, where Float and Double registers overlap---passing this set

compiler/nativeGen/SPARC/CodeGen/Base.hs

@@ -31,6 +31,7 @@ import Reg
 import CodeGen.Platform
 import DynFlags
 import Cmm
+import PprCmmExpr ()
 import Platform
 
 import Outputable

compiler/nativeGen/X86/Regs.hs

@@ -17,7 +17,6 @@ module X86.Regs (
         argRegs,
         allArgRegs,
         allIntArgRegs,
-        allHaskellArgRegs,
         callClobberedRegs,
         instrClobberedRegs,
         allMachRegNos,
@@ -52,7 +51,6 @@ import Reg
 import RegClass
 
 import Cmm
-import CmmCallConv
 import CLabel           ( CLabel )
 import DynFlags
 import Outputable
@@ -439,11 +437,6 @@ instrClobberedRegs platform
 
 --
 
--- All machine registers that are used for argument-passing to Haskell functions
-allHaskellArgRegs :: DynFlags -> [Reg]
-allHaskellArgRegs dflags = [ RegReal r | Just r <- map (globalRegMaybe platform) (globalArgRegs dflags) ]
-    where platform = targetPlatform dflags
-
 -- allocatableRegs is allMachRegNos with the fixed-use regs removed.
 -- i.e., these are the regs for which we are prepared to allow the
 -- register allocator to attempt to map VRegs to.