import CgProf (curCCS, curCCSAddr)
import CgUtils (cmmOffsetW)
+import CgInfoTbls (entryCode)
import SMRep
import ForeignCall
FinalSwitch expr targets -> [CmmSwitch expr targets]
FinalReturn arguments ->
tail_call curr_stack
- (CmmLoad (CmmReg spReg) wordRep)
+ (entryCode (CmmLoad (CmmReg spReg) wordRep))
arguments
FinalJump target arguments ->
tail_call curr_stack target arguments
_ -> isJust cont_id
maybe_header = if allow_header_set && needs_header_set
- then maybe Nothing (Just . CmmLit . CmmLabel) cont_id
+ then maybe Nothing (Just . CmmLit . CmmLabel . entryLblToInfoLbl) cont_id
else Nothing
pack_frame :: WordOff -- ^ Current frame size