From 0c1341d353cd8ff7380abd383431a732da127caa Mon Sep 17 00:00:00 2001 From: "Michael D. Adams" Date: Sat, 14 Jul 2007 18:49:55 +0000 Subject: [PATCH] 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. --- compiler/cmm/CmmCPSGen.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4