From 902f6cd7e04ba384a9a4e847a15ad3fd42a63aea Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 24 Aug 1998 11:16:10 +0000
Subject: [PATCH] [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.

---
 ghc/includes/CostCentre.lh |    1 +
 1 file changed, 1 insertion(+)

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);  \
-- 
1.7.10.4