Silence several -Wunused-parameter warnings about my_perl

This meant sprinkling some PERL_UNUSED_CONTEXT invocations,
as well as stopping some functions from getting my_perl in
the first place; all of the functions in the latter category
are internal (S_ prefix and s or i in embed.fnc), so
this should be both safe and economical.

1 files changed, 1 insertions, 0 deletions

diff --git a/perly.c b/perly.c
index a7115b3625..46d25a5531 100644
--- a/perly.c
+++ b/perly.c
@@ -93,6 +93,7 @@ do {								\
 static void
 yysymprint(pTHX_ PerlIO * const yyoutput, int yytype, const YYSTYPE * const yyvaluep)
 {
+    PERL_UNUSED_CONTEXT;
     if (yytype < YYNTOKENS) {
 	YYFPRINTF (yyoutput, "token %s (", yytname[yytype]);
 #   ifdef YYPRINT