diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2022-06-14 23:19:45 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2022-07-20 22:37:31 -0400 |
| commit | 7f1fcfd75b0c32b67a38d0c316f880fc91cd2dc8 (patch) | |
| tree | dbcb00f35f376ca5a85e4b588c49ddefd5e502c3 | |
| parent | 82090ac35583a6cc8231a51e93a8a473eb150e4b (diff) | |
| download | haskell-7f1fcfd75b0c32b67a38d0c316f880fc91cd2dc8.tar.gz | |
CmmToAsm/AArch64: Fix syntax of OpRegShift operands
Previously this produced invalid assembly containing a redundant comma.
(cherry picked from commit 07c75704f014f62f9ea332319da2e14803263216)
| -rw-r--r-- | compiler/GHC/CmmToAsm/AArch64/Ppr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/CmmToAsm/AArch64/Ppr.hs b/compiler/GHC/CmmToAsm/AArch64/Ppr.hs index e753672908..b1761a1db2 100644 --- a/compiler/GHC/CmmToAsm/AArch64/Ppr.hs +++ b/compiler/GHC/CmmToAsm/AArch64/Ppr.hs @@ -308,7 +308,7 @@ pprOp plat op = case op of OpReg w r -> pprReg w r OpRegExt w r x 0 -> pprReg w r <> comma <+> pprExt x OpRegExt w r x i -> pprReg w r <> comma <+> pprExt x <> comma <+> char '#' <> int i - OpRegShift w r s i -> pprReg w r <> comma <+> pprShift s <> comma <+> char '#' <> int i + OpRegShift w r s i -> pprReg w r <> comma <+> pprShift s <+> char '#' <> int i OpImm im -> pprIm plat im OpImmShift im s i -> pprIm plat im <> comma <+> pprShift s <+> char '#' <> int i -- TODO: Address compuation always use registers as 64bit -- is this correct? |