diff options
Diffstat (limited to 'compiler/GHC/Cmm/Ppr.hs')
-rw-r--r-- | compiler/GHC/Cmm/Ppr.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/compiler/GHC/Cmm/Ppr.hs b/compiler/GHC/Cmm/Ppr.hs index 455a7d639a..c7a1579962 100644 --- a/compiler/GHC/Cmm/Ppr.hs +++ b/compiler/GHC/Cmm/Ppr.hs @@ -215,8 +215,11 @@ pprNode platform node = pp_node <+> pp_debug CmmAssign reg expr -> ppr reg <+> equals <+> pdoc platform expr <> semi -- rep[lv] = expr; - CmmStore lv expr -> rep <> brackets (pdoc platform lv) <+> equals <+> pdoc platform expr <> semi + CmmStore lv expr align -> rep <> align_mark <> brackets (pdoc platform lv) <+> equals <+> pdoc platform expr <> semi where + align_mark = case align of + Unaligned -> text "^" + NaturallyAligned -> empty rep = ppr ( cmmExprType platform expr ) -- call "ccall" foo(x, y)[r1, r2]; |