Commit a8a0764a authored by Jan Stolarek's avatar Jan Stolarek
Browse files

Remove dead code

parent 80a53aa2
...@@ -3,7 +3,7 @@ module CmmCallConv ( ...@@ -3,7 +3,7 @@ module CmmCallConv (
ParamLocation(..), ParamLocation(..),
assignArgumentsPos, assignArgumentsPos,
assignStack, assignStack,
globalArgRegs, realArgRegsCover realArgRegsCover
) where ) where
#include "HsVersions.h" #include "HsVersions.h"
...@@ -173,12 +173,6 @@ allRegs dflags = (allVanillaRegs dflags, ...@@ -173,12 +173,6 @@ allRegs dflags = (allVanillaRegs dflags,
nodeOnly :: AvailRegs nodeOnly :: AvailRegs
nodeOnly = ([VanillaReg 1], [], [], [], []) 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 -- This returns the set of global registers that *cover* the machine registers
-- used for argument passing. On platforms where registers can overlap---right -- used for argument passing. On platforms where registers can overlap---right
-- now just x86-64, where Float and Double registers overlap---passing this set -- now just x86-64, where Float and Double registers overlap---passing this set
......
...@@ -31,6 +31,7 @@ import Reg ...@@ -31,6 +31,7 @@ import Reg
import CodeGen.Platform import CodeGen.Platform
import DynFlags import DynFlags
import Cmm import Cmm
import PprCmmExpr ()
import Platform import Platform
import Outputable import Outputable
......
...@@ -17,7 +17,6 @@ module X86.Regs ( ...@@ -17,7 +17,6 @@ module X86.Regs (
argRegs, argRegs,
allArgRegs, allArgRegs,
allIntArgRegs, allIntArgRegs,
allHaskellArgRegs,
callClobberedRegs, callClobberedRegs,
instrClobberedRegs, instrClobberedRegs,
allMachRegNos, allMachRegNos,
...@@ -52,7 +51,6 @@ import Reg ...@@ -52,7 +51,6 @@ import Reg
import RegClass import RegClass
import Cmm import Cmm
import CmmCallConv
import CLabel ( CLabel ) import CLabel ( CLabel )
import DynFlags import DynFlags
import Outputable import Outputable
...@@ -439,11 +437,6 @@ instrClobberedRegs platform ...@@ -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. -- allocatableRegs is allMachRegNos with the fixed-use regs removed.
-- i.e., these are the regs for which we are prepared to allow the -- i.e., these are the regs for which we are prepared to allow the
-- register allocator to attempt to map VRegs to. -- 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