This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix PL_parser_dup symbol
authorDave Mitchell <davem@fdisolutions.com>
Fri, 12 Jan 2007 11:13:49 +0000 (11:13 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Fri, 12 Jan 2007 11:13:49 +0000 (11:13 +0000)
p4raw-id: //depot/perl@29766

embed.fnc
embed.h
makedef.pl

index 21378c6..a4819bb 100644 (file)
--- 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 (file)
--- a/embed.h
+++ b/embed.h
 #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)
 #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 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)
 #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)
index c362c19..12a17b3 100644 (file)
@@ -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