S_tokereport's unused parm

Message-ID: <20051031060459.GC10767@petdance.com>

p4raw-id: //depot/perl@25914

4 files changed, 5 insertions, 7 deletions

diff --git a/embed.fnc b/embed.fnc
index a2e8eb3fe3..de284791ad 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1321,7 +1321,7 @@ sR	|char *	|tokenize_use	|int|NN char*
 s	|SV*	|new_constant	|NULLOK const char *s|STRLEN len|NN const char *key|NN SV *sv \
 				|NULLOK SV *pv|NULLOK const char *type
 #  if defined(DEBUGGING)
-s	|int	|tokereport	|NN const char *s|I32 rv
+s	|int	|tokereport	|I32 rv
 #  endif
 s	|int	|ao		|int toketype
 s	|void	|depcom
diff --git a/embed.h b/embed.h
index aa85b16724..bc51e887ba 100644
--- a/embed.h
+++ b/embed.h
@@ -3327,7 +3327,7 @@
 #endif
 #  if defined(DEBUGGING)
 #ifdef PERL_CORE
-#define tokereport(a,b)		S_tokereport(aTHX_ a,b)
+#define tokereport(a)		S_tokereport(aTHX_ a)
 #endif
 #  endif
 #ifdef PERL_CORE
diff --git a/proto.h b/proto.h
index fe6575777f..3aa73de9b2 100644
--- a/proto.h
+++ b/proto.h
@@ -3697,9 +3697,7 @@ STATIC SV*	S_new_constant(pTHX_ const char *s, STRLEN len, const char *key, SV *
 			__attribute__nonnull__(pTHX_4);
 
 #  if defined(DEBUGGING)
-STATIC int	S_tokereport(pTHX_ const char *s, I32 rv)
-			__attribute__nonnull__(pTHX_1);
-
+STATIC int	S_tokereport(pTHX_ I32 rv);
 #  endif
 STATIC int	S_ao(pTHX_ int toketype);
 STATIC void	S_depcom(pTHX);
diff --git a/toke.c b/toke.c
index 287aa943fd..11d5b2fb74 100644
--- a/toke.c
+++ b/toke.c
@@ -141,7 +141,7 @@ static const char* const lex_state_names[] = {
  */
 
 #ifdef DEBUGGING /* Serve -DT. */
-#   define REPORT(retval) tokereport(s,(int)retval)
+#   define REPORT(retval) tokereport((I32)retval)
 #else
 #   define REPORT(retval) (retval)
 #endif
@@ -282,7 +282,7 @@ static struct debug_tokens { const int token, type; const char *name; }
 /* dump the returned token in rv, plus any optional arg in yylval */
 
 STATIC int
-S_tokereport(pTHX_ const char* s, I32 rv)
+S_tokereport(pTHX_ I32 rv)
 {
     if (DEBUG_T_TEST) {
 	const char *name = Nullch;