Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
a8a0764a
Commit
a8a0764a
authored
Sep 09, 2013
by
Jan Stolarek
Browse files
Remove dead code
parent
80a53aa2
Changes
3
Hide whitespace changes
Inline
Side-by-side
compiler/cmm/CmmCallConv.hs
View file @
a8a0764a
...
...
@@ -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
View file @
a8a0764a
...
...
@@ -31,6 +31,7 @@ import Reg
import
CodeGen.Platform
import
DynFlags
import
Cmm
import
PprCmmExpr
()
import
Platform
import
Outputable
...
...
compiler/nativeGen/X86/Regs.hs
View file @
a8a0764a
...
...
@@ -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.
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment