diff options
| author | Michael D. Adams <adamsmd@cs.indiana.edu> | 2007-07-14 18:49:55 +0000 |
|---|---|---|
| committer | Michael D. Adams <adamsmd@cs.indiana.edu> | 2007-07-14 18:49:55 +0000 |
| commit | 0c1341d353cd8ff7380abd383431a732da127caa (patch) | |
| tree | 58e6e3da7ac81d8b92974093b215be121310ff0d | |
| parent | 5a7e6864701df450c6f36fe8a99376fc819a3398 (diff) | |
| download | haskell-0c1341d353cd8ff7380abd383431a732da127caa.tar.gz | |
Fix the CPS pass to pack the continuation with correct label form.
It was using the return point label before; now it uses the info label.
| -rw-r--r-- | compiler/cmm/CmmCPSGen.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/cmm/CmmCPSGen.hs b/compiler/cmm/CmmCPSGen.hs index abea84f952..5a98ae1688 100644 --- a/compiler/cmm/CmmCPSGen.hs +++ b/compiler/cmm/CmmCPSGen.hs @@ -393,7 +393,7 @@ pack_continuation allow_header_set _ -> 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 |