Change 34941 by [EMAIL PROTECTED] on 2008/11/26 23:35:59
ywarn() is actually only used inside toke.c, so it can be static.
Affected files ...
... //depot/perl/embed.fnc#650 edit
... //depot/perl/embed.h#787 edit
... //depot/perl/proto.h#984 edit
... //depot/perl/toke.c#838 edit
Differences ...
==== //depot/perl/embed.fnc#650 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#649~34940~ 2008-11-26 15:20:31.000000000 -0800
+++ perl/embed.fnc 2008-11-26 15:35:59.000000000 -0800
@@ -1054,7 +1054,9 @@
EXp |int |yylex
p |int |yyparse
p |void |parser_free |NN const yy_parser *parser
-p |int |yywarn |NN const char *const s
+#if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
+s |int |yywarn |NN const char *const s
+#endif
#if defined(MYMALLOC)
Ap |void |dump_mstats |NN const char* s
Ap |int |get_mstats |NN perl_mstats_t *buf|int buflen|int level
==== //depot/perl/embed.h#787 (text+w) ====
Index: perl/embed.h
--- perl/embed.h#786~34940~ 2008-11-26 15:20:31.000000000 -0800
+++ perl/embed.h 2008-11-26 15:35:59.000000000 -0800
@@ -1050,7 +1050,11 @@
#ifdef PERL_CORE
#define yyparse Perl_yyparse
#define parser_free Perl_parser_free
-#define yywarn Perl_yywarn
+#endif
+#if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
+#ifdef PERL_CORE
+#define yywarn S_yywarn
+#endif
#endif
#if defined(MYMALLOC)
#define dump_mstats Perl_dump_mstats
@@ -3393,7 +3397,11 @@
#ifdef PERL_CORE
#define yyparse() Perl_yyparse(aTHX)
#define parser_free(a) Perl_parser_free(aTHX_ a)
-#define yywarn(a) Perl_yywarn(aTHX_ a)
+#endif
+#if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
+#ifdef PERL_CORE
+#define yywarn(a) S_yywarn(aTHX_ a)
+#endif
#endif
#if defined(MYMALLOC)
#define dump_mstats(a) Perl_dump_mstats(aTHX_ a)
==== //depot/perl/proto.h#984 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#983~34940~ 2008-11-26 15:20:31.000000000 -0800
+++ perl/proto.h 2008-11-26 15:35:59.000000000 -0800
@@ -3733,11 +3733,13 @@
#define PERL_ARGS_ASSERT_PARSER_FREE \
assert(parser)
-PERL_CALLCONV int Perl_yywarn(pTHX_ const char *const s)
+#if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
+STATIC int S_yywarn(pTHX_ const char *const s)
__attribute__nonnull__(pTHX_1);
#define PERL_ARGS_ASSERT_YYWARN \
assert(s)
+#endif
#if defined(MYMALLOC)
PERL_CALLCONV void Perl_dump_mstats(pTHX_ const char* s)
__attribute__nonnull__(pTHX_1);
==== //depot/perl/toke.c#838 (text) ====
Index: perl/toke.c
--- perl/toke.c#837~34768~ 2008-11-07 09:23:05.000000000 -0800
+++ perl/toke.c 2008-11-26 15:35:59.000000000 -0800
@@ -12575,8 +12575,8 @@
#ifdef __SC__
#pragma segment Perl_yylex
#endif
-int
-Perl_yywarn(pTHX_ const char *const s)
+static int
+S_yywarn(pTHX_ const char *const s)
{
dVAR;
End of Patch.
