Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/5b93af461498db8352045b16ccdd90efcd6b8023 >--------------------------------------------------------------- commit 5b93af461498db8352045b16ccdd90efcd6b8023 Author: Paolo Capriotti <[email protected]> Date: Wed Jul 11 14:07:19 2012 +0100 Fix build for non x86/x86_64 (#7065) >--------------------------------------------------------------- compiler/nativeGen/X86/Regs.hs | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) diff --git a/compiler/nativeGen/X86/Regs.hs b/compiler/nativeGen/X86/Regs.hs index ea0fd61..854df0d 100644 --- a/compiler/nativeGen/X86/Regs.hs +++ b/compiler/nativeGen/X86/Regs.hs @@ -404,7 +404,7 @@ xmm n = regSingle (firstxmm+n) -- horror show ----------------------------------------------------------------- -freeReg, freeRegBase :: RegNo -> FastBool +freeReg :: RegNo -> FastBool globalRegMaybe :: GlobalReg -> Maybe RealReg allArgRegs :: [(Reg, Reg)] allIntArgRegs :: [Reg] @@ -483,6 +483,8 @@ freeReg rsp = fastBool False -- %rsp is the C stack pointer -- split patterns in two functions to prevent overlaps freeReg r = freeRegBase r +freeRegBase :: RegNo -> FastBool + #ifdef REG_Base freeRegBase REG_Base = fastBool False #endif _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
