summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2022-06-14 23:19:45 -0400
committerBen Gamari <ben@smart-cactus.org>2022-07-20 22:37:31 -0400
commit7f1fcfd75b0c32b67a38d0c316f880fc91cd2dc8 (patch)
treedbcb00f35f376ca5a85e4b588c49ddefd5e502c3
parent82090ac35583a6cc8231a51e93a8a473eb150e4b (diff)
downloadhaskell-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.hs2
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?