diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2022-01-27 14:47:33 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-02-04 16:14:47 -0500 |
| commit | 99ea5f2cfa09f50bf3ea105821dc095942552e59 (patch) | |
| tree | 87cfa9dbe92582d390f242bad5971e315cd76c3d /compiler/GHC/Cmm/Ppr.hs | |
| parent | 7217156c40240c0aed5ffd83ead0fe4ba0484c75 (diff) | |
| download | haskell-99ea5f2cfa09f50bf3ea105821dc095942552e59.tar.gz | |
Introduce alignment to CmmStore
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]; |