[project @ 2003-07-28 15:59:09 by simonmar]
[ghc-hetmet.git] / ghc / includes / StgTicky.h
index d1ad75a..22e2606 100644 (file)
@@ -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)