From 4a4bc50d9a1e6bdb4662005188a957a50f20aee1 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 17 Nov 2003 14:38:22 +0000
Subject: [PATCH] [project @ 2003-11-17 14:38:22 by simonmar] GC dead code.

---
 ghc/compiler/profiling/CostCentre.lhs |   15 +++------------
 1 file changed, 3 insertions(+), 12 deletions(-)

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
-- 
1.7.10.4