fix PL_parser_dup symbol (again)

p4raw-id: //depot/perl@29780

diff --git a/embed.fnc b/embed.fnc
index a4819bb..2801844 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1057,7 +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
+Ap     |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 a0ec705..bf4f169 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -1056,10 +1056,8 @@
 #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
 #define ptr_table_store                Perl_ptr_table_store
@@ -3260,10 +3258,8 @@
 #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)
 #define ptr_table_store(a,b,c) Perl_ptr_table_store(aTHX_ a,b,c)

diff --git a/global.sym b/global.sym
index 3bc3928..d59dd24 100644 (file)
--- a/global.sym
+++ b/global.sym
@@ -655,6 +655,7 @@ Perl_gp_dup
 Perl_mg_dup
 Perl_sv_dup
 Perl_rvpv_dup
+Perl_parser_dup
 Perl_ptr_table_new
 Perl_ptr_table_fetch
 Perl_ptr_table_store