From: kw217 <unknown>
Date: Fri, 5 Mar 1999 12:43:26 +0000 (+0000)
Subject: [project @ 1999-03-05 12:43:26 by kw217]
X-Git-Tag: Approximately_9120_patches~6414
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3f76730677b17ede7068c93626d3c320832fe091;p=ghc-hetmet.git

[project @ 1999-03-05 12:43:26 by kw217]
More counters reinstated; this should be the lot now:
  ENT_AP_UPD_ctr, ENT_BH_ctr, RET_UNBOXED_TUP_ctr, RET_UNBOXED_TUP_hst[]
---

diff --git a/ghc/rts/Ticky.c b/ghc/rts/Ticky.c
index e8ed6ef..af91976 100644
--- a/ghc/rts/Ticky.c
+++ b/ghc/rts/Ticky.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Ticky.c,v 1.4 1999/03/05 12:02:33 kw217 Exp $
+ * $Id: Ticky.c,v 1.5 1999/03/05 12:43:26 kw217 Exp $
  *
  * (c) The AQUA project, Glasgow University, 1992-1997
  * (c) The GHC Team, 1998-1999
@@ -394,10 +394,13 @@ PrintTickyInfo(void)
   PR_CTR(ENT_FUN_DIRECT_ctr);
   PR_CTR(ENT_IND_ctr);
   PR_CTR(ENT_PAP_ctr);
+  PR_CTR(ENT_AP_UPD_ctr);
+  PR_CTR(ENT_BH_ctr);
   PR_CTR(ENT_THK_ctr);
 
   PR_CTR(RET_NEW_ctr);
   PR_CTR(RET_OLD_ctr);
+  PR_CTR(RET_UNBOXED_TUP_ctr);
   PR_CTR(RET_SEMI_BY_DEFAULT_ctr);
   PR_CTR(RET_SEMI_IN_HEAP_ctr);
   PR_CTR(RET_SEMI_FAILED_IND_ctr);
@@ -422,6 +425,15 @@ PrintTickyInfo(void)
   PR_HST(RET_OLD_hst,6);
   PR_HST(RET_OLD_hst,7);
   PR_HST(RET_OLD_hst,8);
+  PR_HST(RET_UNBOXED_TUP_hst,0);
+  PR_HST(RET_UNBOXED_TUP_hst,1);
+  PR_HST(RET_UNBOXED_TUP_hst,2);
+  PR_HST(RET_UNBOXED_TUP_hst,3);
+  PR_HST(RET_UNBOXED_TUP_hst,4);
+  PR_HST(RET_UNBOXED_TUP_hst,5);
+  PR_HST(RET_UNBOXED_TUP_hst,6);
+  PR_HST(RET_UNBOXED_TUP_hst,7);
+  PR_HST(RET_UNBOXED_TUP_hst,8);
   PR_HST(RET_SEMI_IN_HEAP_hst,0);
   PR_HST(RET_SEMI_IN_HEAP_hst,1);
   PR_HST(RET_SEMI_IN_HEAP_hst,2);