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/Graph.hs | |
| parent | 7217156c40240c0aed5ffd83ead0fe4ba0484c75 (diff) | |
| download | haskell-99ea5f2cfa09f50bf3ea105821dc095942552e59.tar.gz | |
Introduce alignment to CmmStore
Diffstat (limited to 'compiler/GHC/Cmm/Graph.hs')
| -rw-r--r-- | compiler/GHC/Cmm/Graph.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/GHC/Cmm/Graph.hs b/compiler/GHC/Cmm/Graph.hs index 6761821951..d59658e2af 100644 --- a/compiler/GHC/Cmm/Graph.hs +++ b/compiler/GHC/Cmm/Graph.hs @@ -193,8 +193,9 @@ mkAssign :: CmmReg -> CmmExpr -> CmmAGraph mkAssign l (CmmReg r) | l == r = mkNop mkAssign l r = mkMiddle $ CmmAssign l r +-- | Assumes natural alignment mkStore :: CmmExpr -> CmmExpr -> CmmAGraph -mkStore l r = mkMiddle $ CmmStore l r +mkStore l r = mkMiddle $ CmmStore l r NaturallyAligned ---------- Control transfer mkJump :: Profile -> Convention -> CmmExpr |