From 5d9fa9be2f852ec9e5c1ebaf1c4a7fb80d8fba41 Mon Sep 17 00:00:00 2001 From: Dave Mitchell Date: Fri, 12 Jan 2007 21:49:13 +0000 Subject: fix PL_parser_dup symbol (again) p4raw-id: //depot/perl@29780 --- embed.fnc | 2 +- embed.h | 4 ---- global.sym | 1 + 3 files changed, 2 insertions(+), 5 deletions(-) diff --git a/embed.fnc b/embed.fnc index a4819bbc0f..2801844c4f 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 a0ec705e5c..bf4f169e79 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 3bc39282de..d59dd24f65 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 -- cgit v1.2.1