Commit f2bc5fa3 authored by simonmar's avatar simonmar
Browse files

[project @ 2005-04-27 09:55:50 by simonmar]

showReg(x86_64): fix
callerSaves: fix
parent 96364859
......@@ -587,7 +587,7 @@ regNames
showReg :: RegNo -> String
showReg n
| n >= 16 = "%xmm" ++ show n
| n >= 16 = "%xmm" ++ show (n-16)
| n >= 8 = "%r" ++ show n
| otherwise = regNames !! n
......@@ -1242,72 +1242,72 @@ baseRegOffset _ = panic "baseRegOffset:other"
callerSaves :: GlobalReg -> Bool
#ifdef CALLER_SAVES_Base
callerSaves BaseReg = True
callerSaves BaseReg = True
#endif
#ifdef CALLER_SAVES_R1
callerSaves (VanillaReg _ ILIT(1)) = True
callerSaves (VanillaReg 1) = True
#endif
#ifdef CALLER_SAVES_R2
callerSaves (VanillaReg _ ILIT(2)) = True
callerSaves (VanillaReg 2) = True
#endif
#ifdef CALLER_SAVES_R3
callerSaves (VanillaReg _ ILIT(3)) = True
callerSaves (VanillaReg 3) = True
#endif
#ifdef CALLER_SAVES_R4
callerSaves (VanillaReg _ ILIT(4)) = True
callerSaves (VanillaReg 4) = True
#endif
#ifdef CALLER_SAVES_R5
callerSaves (VanillaReg _ ILIT(5)) = True
callerSaves (VanillaReg 5) = True
#endif
#ifdef CALLER_SAVES_R6
callerSaves (VanillaReg _ ILIT(6)) = True
callerSaves (VanillaReg 6) = True
#endif
#ifdef CALLER_SAVES_R7
callerSaves (VanillaReg _ ILIT(7)) = True
callerSaves (VanillaReg 7) = True
#endif
#ifdef CALLER_SAVES_R8
callerSaves (VanillaReg _ ILIT(8)) = True
callerSaves (VanillaReg 8) = True
#endif
#ifdef CALLER_SAVES_F1
callerSaves (FloatReg 1#) = True
callerSaves (FloatReg 1) = True
#endif
#ifdef CALLER_SAVES_F2
callerSaves (FloatReg 2#) = True
callerSaves (FloatReg 2) = True
#endif
#ifdef CALLER_SAVES_F3
callerSaves (FloatReg 3#) = True
callerSaves (FloatReg 3) = True
#endif
#ifdef CALLER_SAVES_F4
callerSaves (FloatReg 4#) = True
callerSaves (FloatReg 4) = True
#endif
#ifdef CALLER_SAVES_D1
callerSaves (DoubleReg 1#) = True
callerSaves (DoubleReg 1) = True
#endif
#ifdef CALLER_SAVES_D2
callerSaves (DoubleReg 2#) = True
callerSaves (DoubleReg 2) = True
#endif
#ifdef CALLER_SAVES_L1
callerSaves (LongReg _ ILIT(1)) = True
callerSaves (LongReg 1) = True
#endif
#ifdef CALLER_SAVES_Sp
callerSaves Sp = True
callerSaves Sp = True
#endif
#ifdef CALLER_SAVES_SpLim
callerSaves SpLim = True
callerSaves SpLim = True
#endif
#ifdef CALLER_SAVES_Hp
callerSaves Hp = True
callerSaves Hp = True
#endif
#ifdef CALLER_SAVES_HpLim
callerSaves HpLim = True
callerSaves HpLim = True
#endif
#ifdef CALLER_SAVES_CurrentTSO
callerSaves CurrentTSO = True
callerSaves CurrentTSO = True
#endif
#ifdef CALLER_SAVES_CurrentNursery
callerSaves CurrentNursery = True
callerSaves CurrentNursery = True
#endif
callerSaves _ = False
callerSaves _ = False
-- | Returns 'Nothing' if this global register is not stored
......
Supports Markdown
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