Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
jberryman
GHC
Commits
fd2bd22e
Commit
fd2bd22e
authored
Apr 20, 2009
by
Ben.Lippmeier@anu.edu.au
Browse files
SPARC NCG: validate fixes
parent
25ea332f
Changes
2
Hide whitespace changes
Inline
Side-by-side
compiler/nativeGen/SPARC/RegPlate.hs
View file @
fd2bd22e
...
...
@@ -19,6 +19,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 +97,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 +135,6 @@ freeReg regNo
,
regNo
`
mod
`
2
/=
0
=
fastBool
False
--------------------------------------
#
endif
#
ifdef
REG_Base
...
...
@@ -285,3 +283,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
compiler/nativeGen/SPARC/Regs.hs
View file @
fd2bd22e
...
...
@@ -39,7 +39,7 @@ import RegClass
import
Size
import
Cmm
import
PprCmm
import
PprCmm
()
import
CgUtils
(
get_GlobalReg_addr
)
import
Unique
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment