diff options
| author | simonm <unknown> | 1999-03-25 13:14:08 +0000 |
|---|---|---|
| committer | simonm <unknown> | 1999-03-25 13:14:08 +0000 |
| commit | e1db55d8bd07c79bae30f548e597f709dd029155 (patch) | |
| tree | 2b11731851342bf2b6adfb2012be2084594e1049 /ghc/compiler/codeGen | |
| parent | a2e5c0a8dfac5818cef1cdc8cc1ccec6a939b9e9 (diff) | |
| download | haskell-e1db55d8bd07c79bae30f548e597f709dd029155.tar.gz | |
[project @ 1999-03-25 13:13:51 by simonm]
Profiling fixes.
- top-level CAF CCSs now *append* themselves to the
current CCS when called.
- remove DICT stuff.
- fixes to the auto-scc annotating in the desugarer.
Diffstat (limited to 'ghc/compiler/codeGen')
| -rw-r--r-- | ghc/compiler/codeGen/CgExpr.lhs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ghc/compiler/codeGen/CgExpr.lhs b/ghc/compiler/codeGen/CgExpr.lhs index 2f4106404b..6e02c259f0 100644 --- a/ghc/compiler/codeGen/CgExpr.lhs +++ b/ghc/compiler/codeGen/CgExpr.lhs @@ -1,7 +1,7 @@ % % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998 % -% $Id: CgExpr.lhs,v 1.21 1999/03/22 16:57:11 simonm Exp $ +% $Id: CgExpr.lhs,v 1.22 1999/03/25 13:13:51 simonm Exp $ % %******************************************************** %* * @@ -36,7 +36,7 @@ import CgTailCall ( cgTailCall, performReturn, performPrimReturn, ) import ClosureInfo ( mkClosureLFInfo, mkSelectorLFInfo, mkApLFInfo, layOutDynCon ) -import CostCentre ( sccAbleCostCentre, isDictCC, isSccCountCostCentre ) +import CostCentre ( sccAbleCostCentre, isSccCountCostCentre ) import Id ( idPrimRep, idType, Id ) import VarSet import DataCon ( DataCon, dataConTyCon ) @@ -234,7 +234,7 @@ centre. cgExpr (StgSCC cc expr) = ASSERT(sccAbleCostCentre cc) costCentresC - (if isDictCC cc then SLIT("SET_DICT_CCC") else SLIT("SET_CCC")) + SLIT("SET_CCC") [mkCCostCentre cc, mkIntCLit (if isSccCountCostCentre cc then 1 else 0)] `thenC` cgExpr expr |