[Git][ghc/ghc][master] PPC NCG: Fix generating assembler code

[Marge Bot (@marge-bot)]

Marge Bot pushed to branch master at Glasgow Haskell Compiler / GHC


Commits:
e8f2b80d by Peter Trommler at 2022-11-19T03:23:59-05:00
PPC NCG: Fix generating assembler code

Fixes #22479

- - - - -


1 changed file:

- compiler/GHC/CmmToAsm/PPC/Ppr.hs


Changes:

=====================================
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



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/e8f2b80da6429af05d5e8ef1a0937aae8c22f819

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/e8f2b80da6429af05d5e8ef1a0937aae8c22f819
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20221119/393f34aa/attachment-0001.html>