Fix SPARC build, missing #include

[ghc-hetmet.git] / compiler / nativeGen / SPARC / RegPlate.hs

diff --git a/compiler/nativeGen/SPARC/RegPlate.hs b/compiler/nativeGen/SPARC/RegPlate.hs
index 38852c5..1da728a 100644 (file)
--- a/compiler/nativeGen/SPARC/RegPlate.hs
+++ b/compiler/nativeGen/SPARC/RegPlate.hs
@@ -11,6 +11,8 @@ module SPARC.RegPlate (
 
 where
 
+#include "HsVersions.h"
+
 import Reg
 import CmmExpr
 import FastBool
@@ -19,6 +21,7 @@ import FastBool
 --     These names are the same as the ones in Regs.hs, but those have
 --     type Reg and not RegNo.
 --
+#ifdef sparc_TARGET_ARCH
 
 #define g0     0
 #define g1     1
@@ -96,7 +99,6 @@ import FastBool
 freeReg :: RegNo -> FastBool
 
 
-#ifdef sparc_REGS
 -- SPARC regs used by the OS / ABI
 -- %g0(r0) is always zero
 freeReg g0     = fastBool False
@@ -135,8 +137,6 @@ freeReg regNo
        , regNo `mod` 2 /= 0
        = fastBool False
 --------------------------------------
-#endif
-
 
 
 #ifdef REG_Base
@@ -285,3 +285,13 @@ globalRegMaybe CurrentTSO          = Just (RealReg REG_CurrentTSO)
 globalRegMaybe CurrentNursery          = Just (RealReg REG_CurrentNursery)
 #endif                                 
 globalRegMaybe _                       = Nothing
+
+
+#else
+freeReg :: RegNo -> FastBool
+freeReg                = error "SPARC.RegPlate.freeReg: not defined"
+
+globalRegMaybe :: GlobalReg -> Maybe Reg
+globalRegMaybe = error "SPARC.RegPlate.globalRegMaybe: not defined"
+
+#endif