From: Dave Mitchell <davem@fdisolutions.com>
Date: Fri, 12 Jan 2007 21:49:13 +0000 (+0000)
Subject: fix PL_parser_dup symbol (again)
X-Git-Tag: accepted/trunk/20130322.191538~16149
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=5d9fa9be2f852ec9e5c1ebaf1c4a7fb80d8fba41;p=platform%2Fupstream%2Fperl.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