summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--embed.fnc2
-rw-r--r--embed.h8
-rw-r--r--makedef.pl1
3 files changed, 8 insertions, 3 deletions
diff --git a/embed.fnc b/embed.fnc
index 21378c6025..a4819bbc0f 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 481edfac71..a0ec705e5c 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 c362c1960c..12a17b37fc 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