Remove dead code
authorJan Stolarek <jan.stolarek@p.lodz.pl>
Mon, 9 Sep 2013 15:11:53 +0000 (16:11 +0100)
committerJan Stolarek <jan.stolarek@p.lodz.pl>
Tue, 10 Sep 2013 07:44:32 +0000 (08:44 +0100)
compiler/cmm/CmmCallConv.hs
compiler/nativeGen/SPARC/CodeGen/Base.hs
compiler/nativeGen/X86/Regs.hs

index eeca0b4..3549933 100644 (file)
@@ -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
index 16384f1..5ad2ff0 100644 (file)
@@ -31,6 +31,7 @@ import Reg
 import CodeGen.Platform
 import DynFlags
 import Cmm
+import PprCmmExpr ()
 import Platform
 
 import Outputable
index bd60fb0..b5139c9 100644 (file)
@@ -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.