Commit 4fb7d5ba authored by Ben.Lippmeier@anu.edu.au's avatar Ben.Lippmeier@anu.edu.au
Browse files

NCG: Validate fixes for powerpc

parent 089482ed
......@@ -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
......
......@@ -98,6 +98,8 @@ import RegAlloc.Linear.Stats
import RegAlloc.Linear.JoinToTargets
import RegAlloc.Liveness
-- import PprMach
import BlockId
import Regs
import Instrs
......
......@@ -58,7 +58,7 @@ module Regs (
allFPArgRegs,
fits16Bits,
makeImmediate,
freg,
fReg,
sp, r3, r4, r27, r28, f1, f20, f21,
#elif i386_TARGET_ARCH || x86_64_TARGET_ARCH
......
......@@ -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
......@@ -441,6 +444,8 @@ xmm n = RealReg (16+n)
-- horror show -----------------------------------------------------------------
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
......
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