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/CmmToAsm | |
| parent | 7217156c40240c0aed5ffd83ead0fe4ba0484c75 (diff) | |
| download | haskell-99ea5f2cfa09f50bf3ea105821dc095942552e59.tar.gz | |
Introduce alignment to CmmStore
Diffstat (limited to 'compiler/GHC/CmmToAsm')
| -rw-r--r-- | compiler/GHC/CmmToAsm/AArch64/CodeGen.hs | 2 | ||||
| -rw-r--r-- | compiler/GHC/CmmToAsm/PPC/CodeGen.hs | 2 | ||||
| -rw-r--r-- | compiler/GHC/CmmToAsm/X86/CodeGen.hs | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/CmmToAsm/AArch64/CodeGen.hs b/compiler/GHC/CmmToAsm/AArch64/CodeGen.hs index f645720de7..507d5243b9 100644 --- a/compiler/GHC/CmmToAsm/AArch64/CodeGen.hs +++ b/compiler/GHC/CmmToAsm/AArch64/CodeGen.hs @@ -290,7 +290,7 @@ stmtToInstrs bid stmt = do where ty = cmmRegType platform reg format = cmmTypeFormat ty - CmmStore addr src + CmmStore addr src _alignment | isFloatType ty -> assignMem_FltCode format addr src | otherwise -> assignMem_IntCode format addr src where ty = cmmExprType platform src diff --git a/compiler/GHC/CmmToAsm/PPC/CodeGen.hs b/compiler/GHC/CmmToAsm/PPC/CodeGen.hs index 430189d442..02308c59e0 100644 --- a/compiler/GHC/CmmToAsm/PPC/CodeGen.hs +++ b/compiler/GHC/CmmToAsm/PPC/CodeGen.hs @@ -174,7 +174,7 @@ stmtToInstrs stmt = do where ty = cmmRegType platform reg format = cmmTypeFormat ty - CmmStore addr src + CmmStore addr src _alignment | isFloatType ty -> assignMem_FltCode format addr src | target32Bit platform && isWord64 ty -> assignMem_I64Code addr src diff --git a/compiler/GHC/CmmToAsm/X86/CodeGen.hs b/compiler/GHC/CmmToAsm/X86/CodeGen.hs index 392d07c62e..bf799590cd 100644 --- a/compiler/GHC/CmmToAsm/X86/CodeGen.hs +++ b/compiler/GHC/CmmToAsm/X86/CodeGen.hs @@ -338,7 +338,7 @@ stmtToInstrs bid stmt = do where ty = cmmRegType platform reg format = cmmTypeFormat ty - CmmStore addr src + CmmStore addr src _alignment | isFloatType ty -> assignMem_FltCode format addr src | is32Bit && isWord64 ty -> assignMem_I64Code addr src | otherwise -> assignMem_IntCode format addr src |