projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
fdc0fa5
)
Fixed a bug in the CPS pass
author
Michael D. Adams
<t-madams@microsoft.com>
Thu, 5 Jul 2007 17:05:15 +0000
(17:05 +0000)
committer
Michael D. Adams
<t-madams@microsoft.com>
Thu, 5 Jul 2007 17:05:15 +0000
(17:05 +0000)
compiler/cmm/CmmCPSGen.hs
patch
|
blob
|
history
diff --git
a/compiler/cmm/CmmCPSGen.hs
b/compiler/cmm/CmmCPSGen.hs
index
4b8f83b
..
c78525e
100644
(file)
--- a/
compiler/cmm/CmmCPSGen.hs
+++ b/
compiler/cmm/CmmCPSGen.hs
@@
-168,7
+168,7
@@
continuationToProc (max_stack, update_frame_size, formats) stack_use uniques
else case lookup (mkReturnPtLabel $ getUnique next) formats of
Nothing -> [CmmBranch next]
Just cont_format ->
- pack_continuation False curr_format cont_format ++
+ pack_continuation True curr_format cont_format ++
tail_call (curr_stack - cont_stack)
(CmmLit $ CmmLabel $ mkReturnPtLabel $ getUnique next)
arguments