From: sewardj <unknown>
Date: Tue, 25 Jan 2000 20:09:22 +0000 (+0000)
Subject: [project @ 2000-01-25 20:09:22 by sewardj]
X-Git-Tag: Approximately_9120_patches~5195
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6b8367d50b33f06f201d8cf803e1b4fdb3bfbb78;p=ghc-hetmet.git

[project @ 2000-01-25 20:09:22 by sewardj]
Teach magicIdRegMaybe about R9 and R10.
---

diff --git a/ghc/compiler/nativeGen/MachRegs.lhs b/ghc/compiler/nativeGen/MachRegs.lhs
index 0ee345a..f32024f 100644
--- 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