From: sof <unknown>
Date: Mon, 24 Aug 1998 11:16:10 +0000 (+0000)
Subject: [project @ 1998-08-24 11:16:10 by sof]
X-Git-Tag: Approx_2487_patches~294
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=902f6cd7e04ba384a9a4e847a15ad3fd42a63aea;p=ghc-hetmet.git

[project @ 1998-08-24 11:16:10 by sof]
[Semi-experimental]
ENTER_CC_PAP: tick the entry count of a PAP's CC when entering it.
---

diff --git a/ghc/includes/CostCentre.lh b/ghc/includes/CostCentre.lh
index 404d286..acc800e 100644
--- a/ghc/includes/CostCentre.lh
+++ b/ghc/includes/CostCentre.lh
@@ -308,6 +308,7 @@ On entering a closure we only count the enter to thunks ...
 	ASSERT_IS_REGISTERED(cc,1);			\
 	if ( ! IS_CAF_OR_DICT_OR_SUB_CC(cc) ) {		\
 	    CCC = cc;					\
+	    CCC->scc_count++;				\
 	} else {					\
 	    CCC_DETAIL_COUNT(cc->caffun_subsumed); 	\
 	    CCC_DETAIL_COUNT(CCC->subsumed_caf_count);  \