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 ...@@ -490,7 +490,7 @@ freeReg REG_Hp = fastBool False
#ifdef REG_HpLim #ifdef REG_HpLim
freeReg REG_HpLim = fastBool False freeReg REG_HpLim = fastBool False
#endif #endif
freeReg n = fastBool True freeReg _ = fastBool True
-- | Returns 'Nothing' if this global register is not stored -- | Returns 'Nothing' if this global register is not stored
......
...@@ -98,6 +98,8 @@ import RegAlloc.Linear.Stats ...@@ -98,6 +98,8 @@ import RegAlloc.Linear.Stats
import RegAlloc.Linear.JoinToTargets import RegAlloc.Linear.JoinToTargets
import RegAlloc.Liveness import RegAlloc.Liveness
-- import PprMach
import BlockId import BlockId
import Regs import Regs
import Instrs import Instrs
......
...@@ -58,7 +58,7 @@ module Regs ( ...@@ -58,7 +58,7 @@ module Regs (
allFPArgRegs, allFPArgRegs,
fits16Bits, fits16Bits,
makeImmediate, makeImmediate,
freg, fReg,
sp, r3, r4, r27, r28, f1, f20, f21, sp, r3, r4, r27, r28, f1, f20, f21,
#elif i386_TARGET_ARCH || x86_64_TARGET_ARCH #elif i386_TARGET_ARCH || x86_64_TARGET_ARCH
......
...@@ -70,7 +70,10 @@ import Outputable ( Outputable(..), pprPanic, panic ) ...@@ -70,7 +70,10 @@ import Outputable ( Outputable(..), pprPanic, panic )
import qualified Outputable import qualified Outputable
import Unique import Unique
import FastBool import FastBool
#if defined(i386_TARGET_ARCH) || defined(x86_64_TARGET_ARCH)
import Constants import Constants
#endif
-- ----------------------------------------------------------------------------- -- -----------------------------------------------------------------------------
-- Sizes on this architecture -- Sizes on this architecture
...@@ -439,8 +442,10 @@ xmm n = RealReg (16+n) ...@@ -439,8 +442,10 @@ xmm n = RealReg (16+n)
-- horror show ----------------------------------------------------------------- -- horror show -----------------------------------------------------------------
freeReg :: RegNo -> FastBool freeReg :: RegNo -> FastBool
globalRegMaybe :: GlobalReg -> Maybe Reg globalRegMaybe :: GlobalReg -> Maybe Reg
allArgRegs :: [Reg]
callClobberedRegs :: [Reg]
#if defined(i386_TARGET_ARCH) || defined(x86_64_TARGET_ARCH) #if defined(i386_TARGET_ARCH) || defined(x86_64_TARGET_ARCH)
...@@ -651,7 +656,6 @@ globalRegMaybe CurrentNursery = Just (RealReg REG_CurrentNursery) ...@@ -651,7 +656,6 @@ globalRegMaybe CurrentNursery = Just (RealReg REG_CurrentNursery)
globalRegMaybe _ = Nothing globalRegMaybe _ = Nothing
-- --
allArgRegs :: [Reg]
#if i386_TARGET_ARCH #if i386_TARGET_ARCH
allArgRegs = panic "X86.Regs.allArgRegs: should not be used!" allArgRegs = panic "X86.Regs.allArgRegs: should not be used!"
...@@ -665,7 +669,6 @@ allArgRegs = panic "X86.Regs.allArgRegs: not defined for this architecture" ...@@ -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. -- | these are the regs which we cannot assume stay alive over a C call.
callClobberedRegs :: [Reg]
#if i386_TARGET_ARCH #if i386_TARGET_ARCH
-- caller-saves registers -- 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