[commit: ghc] master: Fix build for non x86/x86_64 (#7065) (5b93af4)

[Paolo Capriotti]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/5b93af461498db8352045b16ccdd90efcd6b8023

>---------------------------------------------------------------

commit 5b93af461498db8352045b16ccdd90efcd6b8023
Author: Paolo Capriotti <p.capriotti at gmail.com>
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