Skip to content
Snippets Groups Projects
Commit 6b8367d5 authored by Julian Seward's avatar Julian Seward
Browse files

[project @ 2000-01-25 20:09:22 by sewardj] 

Teach magicIdRegMaybe about R9 and R10.
parent db0b3140
No related merge requests found
Hide whitespace changes
Inline Side-by-side
ghc/compiler/nativeGen/MachRegs.lhs
+ 6
− 0
View file @ 6b8367d5
......@@ -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
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment