projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7df227b
)
[project @ 2003-11-17 14:38:22 by simonmar]
author
simonmar
<unknown>
Mon, 17 Nov 2003 14:38:22 +0000
(14:38 +0000)
committer
simonmar
<unknown>
Mon, 17 Nov 2003 14:38:22 +0000
(14:38 +0000)
GC dead code.
ghc/compiler/profiling/CostCentre.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/profiling/CostCentre.lhs
b/ghc/compiler/profiling/CostCentre.lhs
index
eb1a3b9
..
ed40a5e
100644
(file)
--- 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,
CostCentreStack,
CollectedCCs,
noCCS, subsumedCCS, currentCCS, overheadCCS, dontCareCCS,
- noCostCentre, noCCAttached,
+ noCostCentre,
noCCSAttached, isCurrentCCS, isSubsumedCCS, currentOrSubsumedCCS,
isDerivedFromCurrentCCS,
mkUserCC, mkAutoCC, mkAllCafsCC,
noCCSAttached, isCurrentCCS, isSubsumedCCS, currentOrSubsumedCCS,
isDerivedFromCurrentCCS,
mkUserCC, mkAutoCC, mkAllCafsCC,
- mkSingletonCCS, cafifyCC, dupifyCC, pushCCOnCCS,
- isCafCC, isDupdCC, isEmptyCC, isCafCCS,
+ mkSingletonCCS, dupifyCC, pushCCOnCCS,
+ isCafCCS,
isSccCountCostCentre,
sccAbleCostCentre,
ccFromThisModule,
isSccCountCostCentre,
sccAbleCostCentre,
ccFromThisModule,
@@
-220,15
+220,6
@@
mkSingletonCCS cc = pushCCOnCCS cc NoCCS
pushCCOnCCS :: CostCentre -> CostCentreStack -> CostCentreStack
pushCCOnCCS = PushCC
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
dupifyCC cc = cc {cc_is_dupd = DupdCC}
isEmptyCC, isCafCC, isDupdCC :: CostCentre -> Bool