Commit a9109703 authored by Simon Marlow's avatar Simon Marlow
Browse files

add a missing entryCode

parent 2e8f08c6
...@@ -5,6 +5,7 @@ module CmmLayoutStack ( ...@@ -5,6 +5,7 @@ module CmmLayoutStack (
import StgCmmUtils ( callerSaveVolatileRegs ) -- XXX import StgCmmUtils ( callerSaveVolatileRegs ) -- XXX
import StgCmmForeign ( saveThreadState, loadThreadState ) -- XXX import StgCmmForeign ( saveThreadState, loadThreadState ) -- XXX
import StgCmmLayout ( entryCode ) -- XXX
import Cmm import Cmm
import BlockId import BlockId
...@@ -939,7 +940,8 @@ lowerSafeForeignCall dflags block ...@@ -939,7 +940,8 @@ lowerSafeForeignCall dflags block
-- received an exception during the call, then the stack might be -- received an exception during the call, then the stack might be
-- different. Hence we continue by jumping to the top stack frame, -- different. Hence we continue by jumping to the top stack frame,
-- not by jumping to succ. -- not by jumping to succ.
jump = CmmCall { cml_target = CmmLoad (CmmReg spReg) (bWord dflags) jump = CmmCall { cml_target = entryCode dflags $
CmmLoad (CmmReg spReg) (bWord dflags)
, cml_cont = Just succ , cml_cont = Just succ
, cml_args_regs = regs , cml_args_regs = regs
, cml_args = widthInBytes (wordWidth dflags) , cml_args = widthInBytes (wordWidth dflags)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment