From fdc0fa5583b6f5b9bec1637dab239b2b0ca53c20 Mon Sep 17 00:00:00 2001 From: "Michael D. Adams" Date: Thu, 5 Jul 2007 14:50:31 +0000 Subject: [PATCH 1/1] Updated the call to the CPS pass for the factoring out of cmmToRawCmm That call was and is commented out, but it serves as documentation for when the CPS pass will be turned on. --- compiler/main/HscMain.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/main/HscMain.lhs b/compiler/main/HscMain.lhs index 1abdbdc..d68058d 100644 --- a/compiler/main/HscMain.lhs +++ b/compiler/main/HscMain.lhs @@ -608,7 +608,7 @@ hscCompile cgguts foreign_stubs dir_imps cost_centre_info stg_binds hpc_info ------------------ Convert to CPS -------------------- - --continuationC <- cmmCPS dflags abstractC + --continuationC <- cmmCPS dflags abstractC >>= cmmToRawCmm continuationC <- cmmToRawCmm abstractC ------------------ Code output ----------------------- (stub_h_exists,stub_c_exists) @@ -725,7 +725,7 @@ hscCmmFile dflags filename = do case maybe_cmm of Nothing -> return False Just cmm -> do - --continuationC <- cmmCPS dflags [cmm] + --continuationC <- cmmCPS dflags [cmm] >>= cmmToRawCmm continuationC <- cmmToRawCmm [cmm] codeOutput dflags no_mod no_loc NoStubs [] continuationC return True -- 1.7.10.4