X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FStgTicky.h;h=22e26060be3685b73c45529aed5e06e84ba6f1fb;hb=5c15e80ba77d4e30a84578df95ad32e471b0ff8c;hp=d1ad75aa1b565a710ea8da8068a99ba13cf69a99;hpb=0bffc410964e1688ad80d277d53400659e697ab5;p=ghc-hetmet.git

diff --git a/ghc/includes/StgTicky.h b/ghc/includes/StgTicky.h
index d1ad75a..22e2606 100644
--- a/ghc/includes/StgTicky.h
+++ b/ghc/includes/StgTicky.h
@@ -1,5 +1,5 @@
 /* ----------------------------------------------------------------------------
- * $Id: StgTicky.h,v 1.13 2002/12/11 15:36:39 simonmar Exp $
+ * $Id: StgTicky.h,v 1.15 2003/07/28 15:59:09 simonmar Exp $
  *
  * (c) The AQUA project, Glasgow University, 1994-1997
  * (c) The GHC Team, 1998-1999
@@ -201,10 +201,10 @@ extern StgEntCounter *ticky_entry_ctrs;
                                 TICK_SLOW_HISTO(n)
 
 // A slow call to a FUN found insufficient arguments, and built a PAP
-#define TICK_SLOW_CALL_BUILT_PAP(n) SLOW_CALL_BUILT_PAP_ctr++
+#define TICK_SLOW_CALL_BUILT_PAP() SLOW_CALL_BUILT_PAP_ctr++
 
 // A slow call to a PAP found insufficient arguments, and build a new PAP
-#define TICK_SLOW_CALL_NEW_PAP(n)   SLOW_CALL_NEW_PAP_ctr++
+#define TICK_SLOW_CALL_NEW_PAP()   SLOW_CALL_NEW_PAP_ctr++
 
 /* -----------------------------------------------------------------------------
    Returns
@@ -259,11 +259,13 @@ extern StgEntCounter *ticky_entry_ctrs;
    -----------------------  	--------------------------------------------
    TICK_UPD_SQUEEZED		Same as UPD_EXISTING but because
    				of stack-squeezing
+
    TICK_UPD_CON_IN_NEW		Allocating a new CON
    TICK_UPD_CON_IN_PLACE	Updating with a PAP in place
    TICK_UPD_PAP_IN_NEW		Allocating a new PAP
    TICK_UPD_PAP_IN_PLACE	Updating with a PAP in place
 
+   ToDo: the IN_PLACE versions are not relevant any more.
    -------------------------------------------------------------------------- */
 
 #define TICK_UPD_HISTO(categ,n) \
@@ -606,8 +608,8 @@ EXTERN unsigned long GC_WORDS_COPIED_ctr INIT(0);
 #define TICK_ENT_BH()
 
 #define TICK_SLOW_CALL(n)
-#define TICK_SLOW_CALL_BUILT_PAP(n)
-#define TICK_SLOW_CALL_NEW_PAP(n)
+#define TICK_SLOW_CALL_BUILT_PAP()
+#define TICK_SLOW_CALL_NEW_PAP()
 
 #define TICK_RET_NEW(n)
 #define TICK_RET_OLD(n)