diff options
author | Peter Trommler <ptrommler@acm.org> | 2022-11-17 16:18:33 +0100 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-11-19 03:23:59 -0500 |
commit | e8f2b80da6429af05d5e8ef1a0937aae8c22f819 (patch) | |
tree | b4d2fd56152d6fd29e270b379f101acfeb7ffb8b | |
parent | 4b6251ab421add0f2ac476673e5e7f6291d1539f (diff) | |
download | haskell-e8f2b80da6429af05d5e8ef1a0937aae8c22f819.tar.gz |
PPC NCG: Fix generating assembler code
Fixes #22479
-rw-r--r-- | compiler/GHC/CmmToAsm/PPC/Ppr.hs | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/compiler/GHC/CmmToAsm/PPC/Ppr.hs b/compiler/GHC/CmmToAsm/PPC/Ppr.hs index 051fc0b7dc..ba364df1b0 100644 --- a/compiler/GHC/CmmToAsm/PPC/Ppr.hs +++ b/compiler/GHC/CmmToAsm/PPC/Ppr.hs @@ -590,10 +590,8 @@ pprInstr platform instr = case instr of -- We never jump to ForeignLabels; if we ever do, c.f. handling for "BL" | isForeignLabel lbl -> panic "PPC.Ppr.pprInstr: JMP to ForeignLabel" | otherwise -> - lines_ [ -- an alias for b that takes a CLabel - char '\t', - text "b", - char '\t', + line $ hcat [ -- an alias for b that takes a CLabel + text "\tb\t", pprAsmLabel platform lbl ] @@ -711,13 +709,13 @@ pprInstr platform instr = case instr of MFOV fmt reg -> vcat [ - lines_ [ + line $ hcat [ char '\t', text "mfxer", char '\t', pprReg reg ], - lines_ [ + line $ hcat [ char '\t', text "extr", case fmt of |