From: Dave Mitchell Date: Fri, 12 Jan 2007 21:49:13 +0000 (+0000) Subject: fix PL_parser_dup symbol (again) X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5d9fa9be2f852ec9e5c1ebaf1c4a7fb80d8fba41;p=p5sagit%2Fp5-mst-13.2.git fix PL_parser_dup symbol (again) p4raw-id: //depot/perl@29780 --- diff --git a/embed.fnc b/embed.fnc index a4819bb..2801844 100644 --- 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 --- 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 --- 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