diff options
| author | Peter Trommler <ptrommler@acm.org> | 2016-05-16 15:16:49 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-05-16 15:17:10 +0200 |
| commit | 2dbdc79bb9e2760394ebfe630908813b630146c7 (patch) | |
| tree | 233d2a3195370199c0f663a55b816f230e634a73 | |
| parent | bf669a05fdab22cafcff4c692d1091ae582fbe0d (diff) | |
| download | haskell-2dbdc79bb9e2760394ebfe630908813b630146c7.tar.gz | |
PPC NCG: Fix pretty printing of st[wd]ux instr.
Printing STU was mixed up. The tab character must appear
after the 'x'.
Test Plan: validate on powerpc
Reviewers: bgamari, austin, erikd
Reviewed By: austin, erikd
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D2214
GHC Trac Issues: #12054
| -rw-r--r-- | compiler/nativeGen/PPC/Ppr.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/nativeGen/PPC/Ppr.hs b/compiler/nativeGen/PPC/Ppr.hs index 3e1fd078f3..a406a6f977 100644 --- a/compiler/nativeGen/PPC/Ppr.hs +++ b/compiler/nativeGen/PPC/Ppr.hs @@ -494,9 +494,10 @@ pprInstr (STU fmt reg addr) = hcat [ char '\t', text "st", pprFormat fmt, - text "u\t", + char 'u', case addr of AddrRegImm _ _ -> empty AddrRegReg _ _ -> char 'x', + char '\t', pprReg reg, text ", ", pprAddr addr |