From: Matthijs van Duin Date: Tue, 20 Mar 2007 14:59:15 +0000 (+0100) Subject: symbol-exports needed for Data::Alias X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6d9a2efc11d196fdeaf0052460b1c3ac83deb983;p=p5sagit%2Fp5-mst-13.2.git symbol-exports needed for Data::Alias Message-ID: <20070320135915.GA25192@cds.nl> p4raw-id: //depot/perl@30716 --- diff --git a/embed.fnc b/embed.fnc index 9d48950..e985d6a 100644 --- a/embed.fnc +++ b/embed.fnc @@ -108,7 +108,7 @@ ApdR |AV* |av_make |I32 size|NN SV** svp Apd |SV* |av_pop |NN AV* ar ApdoxM |void |av_create_and_push|NN AV **const avp|NN SV *const val Apd |void |av_push |NN AV* ar|NN SV* val -p |void |av_reify |NN AV* ar +EXp |void |av_reify |NN AV* ar ApdR |SV* |av_shift |NN AV* ar Apd |SV** |av_store |NN AV* ar|I32 key|NULLOK SV* val Apd |void |av_undef |NN AV* ar @@ -402,10 +402,10 @@ ApR |bool |is_utf8_mark |NN const U8 *p p |OP* |jmaybe |NN OP* arg pP |I32 |keyword |NN const char* d|I32 len|bool all_keywords Ap |void |leave_scope |I32 base -p |void |lex_end +EXp |void |lex_end p |void |lex_start |NULLOK SV* line Ap |void |op_null |NN OP* o -p |void |op_clear |NN OP* o +EXp |void |op_clear |NN OP* o Ap |void |op_refcnt_lock Ap |void |op_refcnt_unlock p |OP* |linklist |NN OP* o @@ -478,7 +478,7 @@ p |char* |mem_collxfrm |NN const char* s|STRLEN len|NN STRLEN* xlen #endif Afp |SV* |mess |NN const char* pat|... Ap |SV* |vmess |NN const char* pat|NULLOK va_list* args -p |void |qerror |NN SV* err +EXp |void |qerror |NN SV* err Apd |void |sortsv |NN SV** array|size_t num_elts|NN SVCOMPARE_t cmp Apd |void |sortsv_flags |NN SV** array|size_t num_elts|NN SVCOMPARE_t cmp|U32 flags Apd |int |mg_clear |NN SV* sv @@ -492,7 +492,7 @@ Apd |void |mg_magical |NN SV* sv Apd |int |mg_set |NN SV* sv Ap |I32 |mg_size |NN SV* sv Ap |void |mini_mktime |NN struct tm *pm -p |OP* |mod |NULLOK OP* o|I32 type +EXp |OP* |mod |NULLOK OP* o|I32 type p |int |mode_from_discipline|NULLOK SV* discp Ap |char* |moreswitches |NN char* s p |OP* |my |NN OP* o @@ -771,7 +771,7 @@ Ap |char* |screaminstr |NN SV *bigstr|NN SV *littlestr|I32 start_shift \ #if !defined(VMS) p |I32 |setenv_getix |NN const char* nam #endif -p |void |setdefout |NULLOK GV* gv +EXp |void |setdefout |NULLOK GV* gv Ap |HEK* |share_hek |NN const char* str|I32 len|U32 hash #if defined(HAS_SIGACTION) && defined(SA_SIGINFO) np |Signal_t |sighandler |int sig|... @@ -951,7 +951,7 @@ Ap |U8* |uvchr_to_utf8_flags |NN U8 *d|UV uv|UV flags Apd |U8* |uvuni_to_utf8_flags |NN U8 *d|UV uv|UV flags Apd |char* |pv_uni_display |NN SV *dsv|NN const U8 *spv|STRLEN len|STRLEN pvlim|UV flags ApdR |char* |sv_uni_display |NN SV *dsv|NN SV *ssv|STRLEN pvlim|UV flags -p |void |vivify_defelem |NN SV* sv +EXp |void |vivify_defelem |NN SV* sv p |void |vivify_ref |NN SV* sv|U32 to_what p |I32 |wait4pid |Pid_t pid|NN int* statusp|int flags p |U32 |parse_unicode_opts|NN const char **popt @@ -967,7 +967,7 @@ p |void |watch |NN char** addr Ap |I32 |whichsig |NN const char* sig p |void |write_to_stderr|NN const char* message|int msglen p |int |yyerror |NN const char* s -p |int |yylex +EXp |int |yylex p |int |yyparse p |void |parser_free |NN const yy_parser * p |int |yywarn |NN const char* s diff --git a/embed.h b/embed.h index e7d8887..374ac87 100644 --- a/embed.h +++ b/embed.h @@ -64,7 +64,7 @@ #define av_make Perl_av_make #define av_pop Perl_av_pop #define av_push Perl_av_push -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define av_reify Perl_av_reify #endif #define av_shift Perl_av_shift @@ -377,12 +377,14 @@ #define keyword Perl_keyword #endif #define leave_scope Perl_leave_scope -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define lex_end Perl_lex_end +#endif +#ifdef PERL_CORE #define lex_start Perl_lex_start #endif #define op_null Perl_op_null -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define op_clear Perl_op_clear #endif #define op_refcnt_lock Perl_op_refcnt_lock @@ -465,7 +467,7 @@ #endif #define mess Perl_mess #define vmess Perl_vmess -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define qerror Perl_qerror #endif #define sortsv Perl_sortsv @@ -483,8 +485,10 @@ #define mg_set Perl_mg_set #define mg_size Perl_mg_size #define mini_mktime Perl_mini_mktime -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define mod Perl_mod +#endif +#ifdef PERL_CORE #define mode_from_discipline Perl_mode_from_discipline #endif #define moreswitches Perl_moreswitches @@ -793,7 +797,7 @@ #define setenv_getix Perl_setenv_getix #endif #endif -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define setdefout Perl_setdefout #endif #define share_hek Perl_share_hek @@ -963,8 +967,10 @@ #define uvuni_to_utf8_flags Perl_uvuni_to_utf8_flags #define pv_uni_display Perl_pv_uni_display #define sv_uni_display Perl_sv_uni_display -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define vivify_defelem Perl_vivify_defelem +#endif +#ifdef PERL_CORE #define vivify_ref Perl_vivify_ref #define wait4pid Perl_wait4pid #define parse_unicode_opts Perl_parse_unicode_opts @@ -986,7 +992,11 @@ #ifdef PERL_CORE #define write_to_stderr Perl_write_to_stderr #define yyerror Perl_yyerror +#endif +#if defined(PERL_CORE) || defined(PERL_EXT) #define yylex Perl_yylex +#endif +#ifdef PERL_CORE #define yyparse Perl_yyparse #define parser_free Perl_parser_free #define yywarn Perl_yywarn @@ -2297,7 +2307,7 @@ #define av_make(a,b) Perl_av_make(aTHX_ a,b) #define av_pop(a) Perl_av_pop(aTHX_ a) #define av_push(a,b) Perl_av_push(aTHX_ a,b) -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define av_reify(a) Perl_av_reify(aTHX_ a) #endif #define av_shift(a) Perl_av_shift(aTHX_ a) @@ -2605,12 +2615,14 @@ #define keyword(a,b,c) Perl_keyword(aTHX_ a,b,c) #endif #define leave_scope(a) Perl_leave_scope(aTHX_ a) -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define lex_end() Perl_lex_end(aTHX) +#endif +#ifdef PERL_CORE #define lex_start(a) Perl_lex_start(aTHX_ a) #endif #define op_null(a) Perl_op_null(aTHX_ a) -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define op_clear(a) Perl_op_clear(aTHX_ a) #endif #define op_refcnt_lock() Perl_op_refcnt_lock(aTHX) @@ -2691,7 +2703,7 @@ #endif #endif #define vmess(a,b) Perl_vmess(aTHX_ a,b) -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define qerror(a) Perl_qerror(aTHX_ a) #endif #define sortsv(a,b,c) Perl_sortsv(aTHX_ a,b,c) @@ -2709,8 +2721,10 @@ #define mg_set(a) Perl_mg_set(aTHX_ a) #define mg_size(a) Perl_mg_size(aTHX_ a) #define mini_mktime(a) Perl_mini_mktime(aTHX_ a) -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define mod(a,b) Perl_mod(aTHX_ a,b) +#endif +#ifdef PERL_CORE #define mode_from_discipline(a) Perl_mode_from_discipline(aTHX_ a) #endif #define moreswitches(a) Perl_moreswitches(aTHX_ a) @@ -3017,7 +3031,7 @@ #define setenv_getix(a) Perl_setenv_getix(aTHX_ a) #endif #endif -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define setdefout(a) Perl_setdefout(aTHX_ a) #endif #define share_hek(a,b,c) Perl_share_hek(aTHX_ a,b,c) @@ -3183,8 +3197,10 @@ #define uvuni_to_utf8_flags(a,b,c) Perl_uvuni_to_utf8_flags(aTHX_ a,b,c) #define pv_uni_display(a,b,c,d,e) Perl_pv_uni_display(aTHX_ a,b,c,d,e) #define sv_uni_display(a,b,c,d) Perl_sv_uni_display(aTHX_ a,b,c,d) -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define vivify_defelem(a) Perl_vivify_defelem(aTHX_ a) +#endif +#ifdef PERL_CORE #define vivify_ref(a,b) Perl_vivify_ref(aTHX_ a,b) #define wait4pid(a,b,c) Perl_wait4pid(aTHX_ a,b,c) #define parse_unicode_opts(a) Perl_parse_unicode_opts(aTHX_ a) @@ -3204,7 +3220,11 @@ #ifdef PERL_CORE #define write_to_stderr(a,b) Perl_write_to_stderr(aTHX_ a,b) #define yyerror(a) Perl_yyerror(aTHX_ a) +#endif +#if defined(PERL_CORE) || defined(PERL_EXT) #define yylex() Perl_yylex(aTHX) +#endif +#ifdef PERL_CORE #define yyparse() Perl_yyparse(aTHX) #define parser_free(a) Perl_parser_free(aTHX_ a) #define yywarn(a) Perl_yywarn(aTHX_ a) diff --git a/global.sym b/global.sym index 097e3b8..3ac17bc 100644 --- a/global.sym +++ b/global.sym @@ -45,6 +45,7 @@ Perl_av_len Perl_av_make Perl_av_pop Perl_av_push +Perl_av_reify Perl_av_shift Perl_av_store Perl_av_undef @@ -235,7 +236,9 @@ Perl_is_utf8_punct Perl_is_utf8_xdigit Perl_is_utf8_mark Perl_leave_scope +Perl_lex_end Perl_op_null +Perl_op_clear Perl_op_refcnt_lock Perl_op_refcnt_unlock Perl_load_module @@ -249,6 +252,7 @@ Perl_grok_oct Perl_markstack_grow Perl_mess Perl_vmess +Perl_qerror Perl_sortsv Perl_sortsv_flags Perl_mg_clear @@ -261,6 +265,7 @@ Perl_mg_magical Perl_mg_set Perl_mg_size Perl_mini_mktime +Perl_mod Perl_moreswitches Perl_my_atof Perl_my_bcopy @@ -454,6 +459,7 @@ Perl_scan_hex Perl_scan_num Perl_scan_oct Perl_screaminstr +Perl_setdefout Perl_share_hek Perl_csighandler Perl_stack_grow @@ -582,12 +588,14 @@ Perl_uvchr_to_utf8_flags Perl_uvuni_to_utf8_flags Perl_pv_uni_display Perl_sv_uni_display +Perl_vivify_defelem Perl_seed Perl_warn Perl_vwarn Perl_warner Perl_vwarner Perl_whichsig +Perl_yylex Perl_dump_mstats Perl_get_mstats Perl_safesysmalloc