diff options
| author | Jan Stolarek <jan.stolarek@p.lodz.pl> | 2013-09-09 16:11:53 +0100 |
|---|---|---|
| committer | Jan Stolarek <jan.stolarek@p.lodz.pl> | 2013-09-10 08:44:32 +0100 |
| commit | a8a0764a2670dd46603e8f4c02c8ed35e5011535 (patch) | |
| tree | 972518240714456fcf00ea55210cf67ef150fdec /compiler/nativeGen | |
| parent | 80a53aa22788ce93883f2c7ba4d086f122f79612 (diff) | |
| download | haskell-a8a0764a2670dd46603e8f4c02c8ed35e5011535.tar.gz | |
Remove dead code
Diffstat (limited to 'compiler/nativeGen')
| -rw-r--r-- | compiler/nativeGen/SPARC/CodeGen/Base.hs | 1 | ||||
| -rw-r--r-- | compiler/nativeGen/X86/Regs.hs | 7 |
2 files changed, 1 insertions, 7 deletions
diff --git a/compiler/nativeGen/SPARC/CodeGen/Base.hs b/compiler/nativeGen/SPARC/CodeGen/Base.hs index 16384f102a..5ad2ff07b9 100644 --- a/compiler/nativeGen/SPARC/CodeGen/Base.hs +++ b/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 diff --git a/compiler/nativeGen/X86/Regs.hs b/compiler/nativeGen/X86/Regs.hs index bd60fb0281..b5139c92bf 100644 --- a/compiler/nativeGen/X86/Regs.hs +++ b/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. |