From a0017612b4fe79b3ae4d191f304d40c247222670 Mon Sep 17 00:00:00 2001 From: sof Date: Sun, 19 Oct 1997 21:42:34 +0000 Subject: [PATCH] [project @ 1997-10-19 21:42:34 by sof] Drop use of opt_CompilingGhcInternals --- ghc/compiler/profiling/SCCfinal.lhs | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) diff --git a/ghc/compiler/profiling/SCCfinal.lhs b/ghc/compiler/profiling/SCCfinal.lhs index 9995b92..c3ae40a 100644 --- a/ghc/compiler/profiling/SCCfinal.lhs +++ b/ghc/compiler/profiling/SCCfinal.lhs @@ -31,9 +31,7 @@ IMP_Ubiq(){-uitous-} import StgSyn -import CmdLineOpts ( opt_AutoSccsOnIndividualCafs, - opt_CompilingGhcInternals - ) +import CmdLineOpts ( opt_AutoSccsOnIndividualCafs ) import CostCentre -- lots of things import Id ( idType, mkSysLocal, emptyIdSet, SYN_IE(Id) ) import SrcLoc ( noSrcLoc ) @@ -63,7 +61,7 @@ stgMassageForProfiling mod_name grp_name us stg_binds = initMM mod_name us (mapMM do_top_binding stg_binds) fixed_ccs - = if do_auto_sccs_on_cafs || doing_prelude + = if do_auto_sccs_on_cafs then [] -- don't need "all CAFs" CC (for Prelude, we use PreludeCC) else [all_cafs_cc] @@ -73,11 +71,8 @@ stgMassageForProfiling mod_name grp_name us stg_binds ((fixed_ccs ++ local_ccs_no_dups, extern_ccs_no_dups), stg_binds2) where do_auto_sccs_on_cafs = opt_AutoSccsOnIndividualCafs -- only use! - doing_prelude = opt_CompilingGhcInternals - all_cafs_cc = if doing_prelude - then preludeCafsCostCentre - else mkAllCafsCC mod_name grp_name + all_cafs_cc = mkAllCafsCC mod_name grp_name ---------- do_top_binding :: StgBinding -> MassageM StgBinding -- 1.7.10.4