From: Dave Mitchell <davem@fdisolutions.com>
Date: Fri, 12 Jan 2007 11:13:49 +0000 (+0000)
Subject: fix PL_parser_dup symbol
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b0bb49b68c0dc201bfeabf6f4c47c8923c89e98c;p=p5sagit%2Fp5-mst-13.2.git

fix PL_parser_dup symbol

p4raw-id: //depot/perl@29766
---

diff --git a/embed.fnc b/embed.fnc
index 21378c6..a4819bb 100644
--- 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
--- 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
--- 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