From: Michael D. Adams <adamsmd@cs.indiana.edu>
Date: Sat, 14 Jul 2007 18:49:55 +0000 (+0000)
Subject: Fix the CPS pass to pack the continuation with correct label form.
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=0c1341d353cd8ff7380abd383431a732da127caa

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.
---

diff --git a/compiler/cmm/CmmCPSGen.hs b/compiler/cmm/CmmCPSGen.hs
index abea84f..5a98ae1 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