projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
0c1341d
)
Fixed CPS to account for info tables not being next to code
author
Michael D. Adams
<adamsmd@cs.indiana.edu>
Sun, 15 Jul 2007 01:11:41 +0000
(
01:11
+0000)
committer
Michael D. Adams
<adamsmd@cs.indiana.edu>
Sun, 15 Jul 2007 01:11:41 +0000
(
01:11
+0000)
compiler/cmm/CmmCPSGen.hs
patch
|
blob
|
history
diff --git
a/compiler/cmm/CmmCPSGen.hs
b/compiler/cmm/CmmCPSGen.hs
index
5a98ae1
..
da72b54
100644
(file)
--- 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