From: mthomas <unknown>
Date: Wed, 18 Dec 2002 01:13:37 +0000 (+0000)
Subject: [project @ 2002-12-18 01:13:37 by mthomas]
X-Git-Tag: Approx_11550_changesets_converted~1338
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=7d4341839442f3cc0b597b8a7cd07691fbbaba6e

[project @ 2002-12-18 01:13:37 by mthomas]
Do a George Bush on unused macro arg irritating rich western programmer.
---

diff --git a/ghc/includes/StgTicky.h b/ghc/includes/StgTicky.h
index d1ad75a..25b4c1b 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.14 2002/12/18 01:13:37 mthomas 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
@@ -606,8 +606,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)