diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2020-12-22 16:00:20 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2020-12-22 16:00:20 -0500 |
| commit | 9e289a33dea1511879c612dc911912df2823afb0 (patch) | |
| tree | 517602dbc93a47f6c581b657adf904d7a1ff68cc | |
| parent | cf225b6cb8191cd26bb9c4cc592056408b1430d0 (diff) | |
| download | haskell-wip/T16577.tar.gz | |
X86.Instr: Strictnesswip/T16577
| -rw-r--r-- | compiler/GHC/CmmToAsm/X86/Instr.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/CmmToAsm/X86/Instr.hs b/compiler/GHC/CmmToAsm/X86/Instr.hs index da6ca0a662..f2cd44a1e1 100644 --- a/compiler/GHC/CmmToAsm/X86/Instr.hs +++ b/compiler/GHC/CmmToAsm/X86/Instr.hs @@ -677,7 +677,7 @@ mkSpillInstr -> Instr mkSpillInstr config reg delta slot - = let off = spillSlotToOffset platform slot - delta + = let !off = spillSlotToOffset platform slot - delta in case targetClassOfReg platform reg of RcInteger -> MOV (archWordFormat is32Bit) @@ -696,7 +696,7 @@ mkLoadInstr -> Instr mkLoadInstr config reg delta slot - = let off = spillSlotToOffset platform slot - delta + = let !off = spillSlotToOffset platform slot - delta in case targetClassOfReg platform reg of RcInteger -> MOV (archWordFormat is32Bit) |