diff options
| author | Michael D. Adams <adamsmd@cs.indiana.edu> | 2007-07-15 01:11:41 +0000 |
|---|---|---|
| committer | Michael D. Adams <adamsmd@cs.indiana.edu> | 2007-07-15 01:11:41 +0000 |
| commit | a9eda06434ea9fb4764c2a587ccd53df09f7c470 (patch) | |
| tree | 3548d8e2576c5610797324b064d3f0f8589f4a35 /compiler | |
| parent | 0c1341d353cd8ff7380abd383431a732da127caa (diff) | |
| download | haskell-a9eda06434ea9fb4764c2a587ccd53df09f7c470.tar.gz | |
Fixed CPS to account for info tables not being next to code
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/cmm/CmmCPSGen.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/cmm/CmmCPSGen.hs b/compiler/cmm/CmmCPSGen.hs index 5a98ae1688..da72b541ba 100644 --- a/compiler/cmm/CmmCPSGen.hs +++ b/compiler/cmm/CmmCPSGen.hs @@ -17,6 +17,7 @@ import CmmCallConv import CgProf (curCCS, curCCSAddr) import CgUtils (cmmOffsetW) +import CgInfoTbls (entryCode) import SMRep import ForeignCall @@ -178,7 +179,7 @@ continuationToProc (max_stack, update_frame_size, formats) stack_use uniques 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 |