diff options
| -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) |