From: simonmar <unknown>
Date: Mon, 17 Nov 2003 14:38:22 +0000 (+0000)
Subject: [project @ 2003-11-17 14:38:22 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~242
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=4a4bc50d9a1e6bdb4662005188a957a50f20aee1

[project @ 2003-11-17 14:38:22 by simonmar]
GC dead code.
---

diff --git a/ghc/compiler/profiling/CostCentre.lhs b/ghc/compiler/profiling/CostCentre.lhs
index eb1a3b9..ed40a5e 100644
--- a/ghc/compiler/profiling/CostCentre.lhs
+++ b/ghc/compiler/profiling/CostCentre.lhs
@@ -11,13 +11,13 @@ module CostCentre (
 	CostCentreStack,
 	CollectedCCs,
 	noCCS, subsumedCCS, currentCCS, overheadCCS, dontCareCCS,
-	noCostCentre, noCCAttached,
+	noCostCentre,
 	noCCSAttached, isCurrentCCS,  isSubsumedCCS, currentOrSubsumedCCS,
 	isDerivedFromCurrentCCS,
 
 	mkUserCC, mkAutoCC, mkAllCafsCC, 
-	mkSingletonCCS, cafifyCC, dupifyCC, pushCCOnCCS,
-	isCafCC, isDupdCC, isEmptyCC, isCafCCS,
+	mkSingletonCCS, dupifyCC, pushCCOnCCS,
+	isCafCCS,
 	isSccCountCostCentre,
 	sccAbleCostCentre,
 	ccFromThisModule,
@@ -220,15 +220,6 @@ mkSingletonCCS cc = pushCCOnCCS cc NoCCS
 pushCCOnCCS :: CostCentre -> CostCentreStack -> CostCentreStack
 pushCCOnCCS = PushCC
 
-cafifyCC, dupifyCC  :: CostCentre -> CostCentre
-cafifyCC cc@(NormalCC {cc_is_caf = is_caf})
-  = ASSERT(not_a_caf_already is_caf)
-    cc {cc_is_caf = CafCC}
-  where
-    not_a_caf_already CafCC = False
-    not_a_caf_already _       = True
-cafifyCC cc = pprPanic "cafifyCC" (ppr cc)
-
 dupifyCC cc = cc {cc_is_dupd = DupdCC}
 
 isEmptyCC, isCafCC, isDupdCC :: CostCentre -> Bool