projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
db0b314
)
[project @ 2000-01-25 20:09:22 by sewardj]
author
sewardj
<unknown>
Tue, 25 Jan 2000 20:09:22 +0000
(20:09 +0000)
committer
sewardj
<unknown>
Tue, 25 Jan 2000 20:09:22 +0000
(20:09 +0000)
Teach magicIdRegMaybe about R9 and R10.
ghc/compiler/nativeGen/MachRegs.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/nativeGen/MachRegs.lhs
b/ghc/compiler/nativeGen/MachRegs.lhs
index
0ee345a
..
f32024f
100644
(file)
--- a/
ghc/compiler/nativeGen/MachRegs.lhs
+++ b/
ghc/compiler/nativeGen/MachRegs.lhs
@@
-685,6
+685,12
@@
magicIdRegMaybe (VanillaReg _ ILIT(7)) = Just (FixedReg ILIT(REG_R7))
#ifdef REG_R8
magicIdRegMaybe (VanillaReg _ ILIT(8)) = Just (FixedReg ILIT(REG_R8))
#endif
+#ifdef REG_R9
+magicIdRegMaybe (VanillaReg _ ILIT(9)) = Just (FixedReg ILIT(REG_R9))
+#endif
+#ifdef REG_R10
+magicIdRegMaybe (VanillaReg _ ILIT(10)) = Just (FixedReg ILIT(REG_R10))
+#endif
#ifdef REG_F1
magicIdRegMaybe (FloatReg ILIT(1)) = Just (FixedReg ILIT(REG_F1))
#endif