fix PL_parser_dup symbol

p4raw-id: //depot/perl@29766

diff --git a/embed.fnc b/embed.fnc
index 21378c6..a4819bb 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -958,7 +958,6 @@ p   |int    |yyerror        |NN const char* s
 p      |int    |yylex
 p      |int    |yyparse
 p      |void   |parser_free    |NN const yy_parser *
-p      |yy_parser*|parser_dup  |NN const yy_parser *proto|NN CLONE_PARAMS* param
 p      |int    |yywarn         |NN const char* s
 #if defined(MYMALLOC)
 Ap     |void   |dump_mstats    |NN char* s
@@ -1058,6 +1057,7 @@ ApR       |GP*    |gp_dup         |NULLOK GP* gp|NN CLONE_PARAMS* param
 ApR    |MAGIC* |mg_dup         |NULLOK MAGIC* mg|NN CLONE_PARAMS* param
 ApR    |SV*    |sv_dup         |NULLOK const SV* sstr|NN CLONE_PARAMS* param
 Ap     |void   |rvpv_dup       |NN SV* dstr|NN const SV *sstr|NN CLONE_PARAMS* param
+p      |yy_parser*|parser_dup  |NN const yy_parser *proto|NN CLONE_PARAMS* param
 #endif
 Apa    |PTR_TBL_t*|ptr_table_new
 ApR    |void*  |ptr_table_fetch|NN PTR_TBL_t *tbl|NN const void *sv

diff --git a/embed.h b/embed.h
index 481edfa..a0ec705 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -978,7 +978,6 @@
 #define yylex                  Perl_yylex
 #define yyparse                        Perl_yyparse
 #define parser_free            Perl_parser_free
-#define parser_dup             Perl_parser_dup
 #define yywarn                 Perl_yywarn
 #endif
 #if defined(MYMALLOC)
@@ -1057,6 +1056,9 @@
 #define mg_dup                 Perl_mg_dup
 #define sv_dup                 Perl_sv_dup
 #define rvpv_dup               Perl_rvpv_dup
+#ifdef PERL_CORE
+#define parser_dup             Perl_parser_dup
+#endif
 #endif
 #define ptr_table_new          Perl_ptr_table_new
 #define ptr_table_fetch                Perl_ptr_table_fetch
@@ -3183,7 +3185,6 @@
 #define yylex()                        Perl_yylex(aTHX)
 #define yyparse()              Perl_yyparse(aTHX)
 #define parser_free(a)         Perl_parser_free(aTHX_ a)
-#define parser_dup(a,b)                Perl_parser_dup(aTHX_ a,b)
 #define yywarn(a)              Perl_yywarn(aTHX_ a)
 #endif
 #if defined(MYMALLOC)
@@ -3259,6 +3260,9 @@
 #define mg_dup(a,b)            Perl_mg_dup(aTHX_ a,b)
 #define sv_dup(a,b)            Perl_sv_dup(aTHX_ a,b)
 #define rvpv_dup(a,b,c)                Perl_rvpv_dup(aTHX_ a,b,c)
+#ifdef PERL_CORE
+#define parser_dup(a,b)                Perl_parser_dup(aTHX_ a,b)
+#endif
 #endif
 #define ptr_table_new()                Perl_ptr_table_new(aTHX)
 #define ptr_table_fetch(a,b)   Perl_ptr_table_fetch(aTHX_ a,b)

diff --git a/makedef.pl b/makedef.pl
index c362c19..12a17b3 100644 (file)
--- a/makedef.pl
+++ b/makedef.pl
@@ -719,6 +719,7 @@ unless ($define{'USE_ITHREADS'}) {
                    PL_hints_mutex
                    PL_perlio_mutex
                    PL_regdupe
+                   Perl_parser_dup
                    Perl_dirp_dup
                    Perl_cx_dup
                    Perl_si_dup