diff options
Diffstat (limited to 'compiler/GHC/StgToCmm/Monad.hs')
| -rw-r--r-- | compiler/GHC/StgToCmm/Monad.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/GHC/StgToCmm/Monad.hs b/compiler/GHC/StgToCmm/Monad.hs index 5ab12a4634..04654d40d3 100644 --- a/compiler/GHC/StgToCmm/Monad.hs +++ b/compiler/GHC/StgToCmm/Monad.hs @@ -724,8 +724,9 @@ emitUnwind regs = do emitAssign :: CmmReg -> CmmExpr -> FCode () emitAssign l r = emitCgStmt (CgStmt (CmmAssign l r)) +-- | Assumes natural alignment. emitStore :: CmmExpr -> CmmExpr -> FCode () -emitStore l r = emitCgStmt (CgStmt (CmmStore l r)) +emitStore l r = emitCgStmt (CgStmt (CmmStore l r NaturallyAligned)) emit :: CmmAGraph -> FCode () emit ag |