Commit a8a0764a authored by Jan Stolarek's avatar Jan Stolarek

Remove dead code

parent 80a53aa2
......@@ -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
......
......@@ -31,6 +31,7 @@ import Reg
import CodeGen.Platform
import DynFlags
import Cmm
import PprCmmExpr ()
import Platform
import Outputable
......
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment