[project @ 1999-03-20 17:33:07 by sof]

[ghc-hetmet.git] / ghc / rts / Ticky.c

diff --git a/ghc/rts/Ticky.c b/ghc/rts/Ticky.c
index 787b066..af91976 100644 (file)
--- a/ghc/rts/Ticky.c
+++ b/ghc/rts/Ticky.c
@@ -1,7 +1,8 @@
 /* -----------------------------------------------------------------------------
- * $Id: Ticky.c,v 1.2 1999/02/02 14:21:34 simonm Exp $
+ * $Id: Ticky.c,v 1.5 1999/03/05 12:43:26 kw217 Exp $
  *
- * (c) The GHC Team, Glasgow University, 1992-1998
+ * (c) The AQUA project, Glasgow University, 1992-1997
+ * (c) The GHC Team, 1998-1999
  *
  * Ticky-ticky profiling
  *-------------------------------------------------------------------------- */
@@ -393,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);
@@ -421,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);
@@ -454,6 +467,7 @@ PrintTickyInfo(void)
   PR_CTR(UPD_SQUEEZED_ctr);
   PR_CTR(UPD_CON_IN_NEW_ctr);
   PR_CTR(UPD_PAP_IN_NEW_ctr);
+  PR_CTR(UPD_PAP_IN_PLACE_ctr);
 
   PR_HST(UPD_CON_IN_NEW_hst,0);
   PR_HST(UPD_CON_IN_NEW_hst,1);