projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
where
+#include "HsVersions.h"
+
import Reg
import CmmExpr
import FastBool
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.
--
-- 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
#define g0 0
#define g1 1
@@
-96,7
+99,6
@@
import FastBool
freeReg :: RegNo -> FastBool
freeReg :: RegNo -> FastBool
-#ifdef sparc_REGS
-- SPARC regs used by the OS / ABI
-- %g0(r0) is always zero
freeReg g0 = fastBool False
-- 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
--------------------------------------
, regNo `mod` 2 /= 0
= fastBool False
--------------------------------------
-#endif
-
#ifdef REG_Base
#ifdef REG_Base
@@
-285,3
+285,13
@@
globalRegMaybe CurrentTSO = Just (RealReg REG_CurrentTSO)
globalRegMaybe CurrentNursery = Just (RealReg REG_CurrentNursery)
#endif
globalRegMaybe _ = Nothing
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