diff options
| author | Peter Trommler <ptrommler@acm.org> | 2022-11-17 16:18:33 +0100 |
|---|---|---|
| committer | Peter Trommler <ptrommler@acm.org> | 2022-11-17 16:18:33 +0100 |
| commit | 95b5e5feaa73c586641708f5b8055bfbb7b9e284 (patch) | |
| tree | d5961d5a6eaa9710dca6f45bef53c9887b666d7e | |
| parent | 37cfe3c0f4fb16189bbe3bb735f758cd6e3d9157 (diff) | |
| download | haskell-wip/T22479.tar.gz | |
PPC NCG: Fix generating assembler codewip/T22479
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 |