diff options
Diffstat (limited to 'compiler/GHC/CmmToAsm/AArch64/Regs.hs')
-rw-r--r-- | compiler/GHC/CmmToAsm/AArch64/Regs.hs | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/compiler/GHC/CmmToAsm/AArch64/Regs.hs b/compiler/GHC/CmmToAsm/AArch64/Regs.hs index fd1669eeac..4fd50b0d3f 100644 --- a/compiler/GHC/CmmToAsm/AArch64/Regs.hs +++ b/compiler/GHC/CmmToAsm/AArch64/Regs.hs @@ -129,16 +129,12 @@ realRegSqueeze cls rr | regNo < 32 -> 1 -- first fp reg is 32 | otherwise -> 0 - RealRegPair{} -> 0 - RcDouble -> case rr of RealRegSingle regNo | regNo < 32 -> 0 | otherwise -> 1 - RealRegPair{} -> 0 - _other -> 0 mkVirtualReg :: Unique -> Format -> VirtualReg @@ -156,9 +152,6 @@ classOfRealReg (RealRegSingle i) | i < 32 = RcInteger | otherwise = RcDouble -classOfRealReg (RealRegPair{}) - = panic "regClass(ppr): no reg pairs on this architecture" - regDotColor :: RealReg -> SDoc regDotColor reg = case classOfRealReg reg of |