From e3db6d843740426b77367542363986d051d19ad7 Mon Sep 17 00:00:00 2001 From: "Michael D. Adams" Date: Thu, 5 Jul 2007 17:06:37 +0000 Subject: [PATCH] Eliminated use of 'fromJust' from the CPS pass --- compiler/cmm/CmmCPSGen.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/compiler/cmm/CmmCPSGen.hs b/compiler/cmm/CmmCPSGen.hs index c78525e..abea84f 100644 --- a/compiler/cmm/CmmCPSGen.hs +++ b/compiler/cmm/CmmCPSGen.hs @@ -385,7 +385,6 @@ pack_continuation allow_header_set (ContinuationFormat _ cont_id cont_frame_size live_regs) = pack_frame curr_frame_size cont_frame_size maybe_header continuation_args where - continuation_function = CmmLit $ CmmLabel $ fromJust cont_id continuation_args = map (maybe Nothing (Just . CmmReg . CmmLocal)) live_regs needs_header_set = @@ -394,7 +393,7 @@ pack_continuation allow_header_set _ -> isJust cont_id maybe_header = if allow_header_set && needs_header_set - then Just continuation_function + then maybe Nothing (Just . CmmLit . CmmLabel) cont_id else Nothing pack_frame :: WordOff -- ^ Current frame size -- 1.7.10.4