NCG: Validate fixes for powerpc

compiler/nativeGen/PPC/Regs.hs

@@ -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

@@ -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

@@ -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

compiler/nativeGen/X86/Regs.hs

@@ -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