diff options
| author | simonmar <unknown> | 2003-11-17 14:38:22 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2003-11-17 14:38:22 +0000 |
| commit | 4a4bc50d9a1e6bdb4662005188a957a50f20aee1 (patch) | |
| tree | 9aabaa7b966406afc27d31ede3d89d22b1b6cba3 | |
| parent | 7df227bff47727a1205988ed12a34ae1052d2a8d (diff) | |
| download | haskell-4a4bc50d9a1e6bdb4662005188a957a50f20aee1.tar.gz | |
[project @ 2003-11-17 14:38:22 by simonmar]
GC dead code.
| -rw-r--r-- | ghc/compiler/profiling/CostCentre.lhs | 15 |
1 files changed, 3 insertions, 12 deletions
diff --git a/ghc/compiler/profiling/CostCentre.lhs b/ghc/compiler/profiling/CostCentre.lhs index eb1a3b9416..ed40a5e1d1 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 |