diff options
Diffstat (limited to 'compiler/GHC/Cmm/LayoutStack.hs')
| -rw-r--r-- | compiler/GHC/Cmm/LayoutStack.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Cmm/LayoutStack.hs b/compiler/GHC/Cmm/LayoutStack.hs index b8fcf65b58..b8cf2c4900 100644 --- a/compiler/GHC/Cmm/LayoutStack.hs +++ b/compiler/GHC/Cmm/LayoutStack.hs @@ -1164,7 +1164,7 @@ lowerSafeForeignCall dflags block -- received an exception during the call, then the stack might be -- different. Hence we continue by jumping to the top stack frame, -- not by jumping to succ. - jump = CmmCall { cml_target = entryCode dflags $ + jump = CmmCall { cml_target = entryCode platform $ CmmLoad spExpr (bWord platform) , cml_cont = Just succ , cml_args_regs = regs |