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
4fb7d5ba
Commit
4fb7d5ba
authored
Feb 13, 2009
by
Ben.Lippmeier@anu.edu.au
Browse files
NCG: Validate fixes for powerpc
parent
089482ed
Changes
4
Hide whitespace changes
Inline
Side-by-side
compiler/nativeGen/PPC/Regs.hs
View file @
4fb7d5ba
...
...
@@ -490,7 +490,7 @@ freeReg REG_Hp = fastBool False
#
ifdef
REG_HpLim
freeReg
REG_HpLim
=
fastBool
False
#
endif
freeReg
n
=
fastBool
True
freeReg
_
=
fastBool
True
-- | Returns 'Nothing' if this global register is not stored
...
...
compiler/nativeGen/RegAlloc/Linear/Main.hs
View file @
4fb7d5ba
...
...
@@ -98,6 +98,8 @@ import RegAlloc.Linear.Stats
import
RegAlloc.Linear.JoinToTargets
import
RegAlloc.Liveness
-- import PprMach
import
BlockId
import
Regs
import
Instrs
...
...
compiler/nativeGen/Regs.hs
View file @
4fb7d5ba
...
...
@@ -58,7 +58,7 @@ module Regs (
allFPArgRegs
,
fits16Bits
,
makeImmediate
,
f
r
eg
,
f
R
eg
,
sp
,
r3
,
r4
,
r27
,
r28
,
f1
,
f20
,
f21
,
#
elif
i386_TARGET_ARCH
||
x86_64_TARGET_ARCH
...
...
compiler/nativeGen/X86/Regs.hs
View file @
4fb7d5ba
...
...
@@ -70,7 +70,10 @@ import Outputable ( Outputable(..), pprPanic, panic )
import
qualified
Outputable
import
Unique
import
FastBool
#
if
defined
(
i386_TARGET_ARCH
)
||
defined
(
x86_64_TARGET_ARCH
)
import
Constants
#
endif
-- -----------------------------------------------------------------------------
-- Sizes on this architecture
...
...
@@ -439,8 +442,10 @@ xmm n = RealReg (16+n)
-- horror show -----------------------------------------------------------------
freeReg
::
RegNo
->
FastBool
globalRegMaybe
::
GlobalReg
->
Maybe
Reg
freeReg
::
RegNo
->
FastBool
globalRegMaybe
::
GlobalReg
->
Maybe
Reg
allArgRegs
::
[
Reg
]
callClobberedRegs
::
[
Reg
]
#
if
defined
(
i386_TARGET_ARCH
)
||
defined
(
x86_64_TARGET_ARCH
)
...
...
@@ -651,7 +656,6 @@ globalRegMaybe CurrentNursery = Just (RealReg REG_CurrentNursery)
globalRegMaybe
_
=
Nothing
--
allArgRegs
::
[
Reg
]
#
if
i386_TARGET_ARCH
allArgRegs
=
panic
"X86.Regs.allArgRegs: should not be used!"
...
...
@@ -665,7 +669,6 @@ allArgRegs = panic "X86.Regs.allArgRegs: not defined for this architecture"
-- | these are the regs which we cannot assume stay alive over a C call.
callClobberedRegs
::
[
Reg
]
#
if
i386_TARGET_ARCH
-- caller-saves registers
...
...
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