From: Jarkko Hietaniemi Date: Sun, 9 Mar 2003 20:12:11 +0000 (+0000) Subject: I hate embed*. Tell me what you know. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=55222be88d47a690542bb115106ab0ffa7223aaa;p=p5sagit%2Fp5-mst-13.2.git I hate embed*. Tell me what you know. p4raw-id: //depot/perl@18870 --- diff --git a/embed.fnc b/embed.fnc index 4005cb4..d4e1f35 100644 --- a/embed.fnc +++ b/embed.fnc @@ -17,11 +17,11 @@ : r function never returns : o has no compatibility macro (#define foo Perl_foo) : x not exported -: M may change: no Perl_ proto, but exported +: X explicitly exported +: M may change : E visible to Perl core extensions : b binary backward compatibility; function is a macro : but has also Perl_ implementation (which is exported) -: X no Perl_ proto : : Individual flags may be separated by whitespace. : @@ -731,7 +731,7 @@ Ap |void |sv_dump |SV* sv Apd |bool |sv_derived_from|SV* sv|const char* name Apd |I32 |sv_eq |SV* sv1|SV* sv2 Apd |void |sv_free |SV* sv -ApoMX |void |sv_free2 |SV* sv +poMX |void |sv_free2 |SV* sv pd |void |sv_free_arenas Apd |char* |sv_gets |SV* sv|PerlIO* fp|I32 append Apd |char* |sv_grow |SV* sv|STRLEN newlen diff --git a/embed.h b/embed.h index 438698c..b03d9de 100644 --- a/embed.h +++ b/embed.h @@ -1034,6 +1034,7 @@ #define sv_setpvf Perl_sv_setpvf #define sv_vsetpvf Perl_sv_vsetpvf #define sv_setiv Perl_sv_setiv +#define sv_setpviv Perl_sv_setpviv #define sv_setuv Perl_sv_setuv #define sv_setnv Perl_sv_setnv #define sv_setref_iv Perl_sv_setref_iv @@ -1156,6 +1157,7 @@ #define sv_setpvf_mg Perl_sv_setpvf_mg #define sv_vsetpvf_mg Perl_sv_vsetpvf_mg #define sv_setiv_mg Perl_sv_setiv_mg +#define sv_setpviv_mg Perl_sv_setpviv_mg #define sv_setuv_mg Perl_sv_setuv_mg #define sv_setnv_mg Perl_sv_setnv_mg #define sv_setpv_mg Perl_sv_setpv_mg @@ -1230,8 +1232,10 @@ #define custom_op_name Perl_custom_op_name #define custom_op_desc Perl_custom_op_desc #if defined(PERL_COPY_ON_WRITE) +#ifdef PERL_CORE #define sv_release_IVX Perl_sv_release_IVX #endif +#endif #define sv_nosharing Perl_sv_nosharing #define sv_nolocking Perl_sv_nolocking #define sv_nounlocking Perl_sv_nounlocking @@ -2029,8 +2033,10 @@ #define my_atof2 Perl_my_atof2 #define my_socketpair Perl_my_socketpair #ifdef PERL_COPY_ON_WRITE +#ifdef PERL_CORE #define sv_setsv_cow Perl_sv_setsv_cow #endif +#endif #if defined(USE_PERLIO) && !defined(USE_SFIO) #define PerlIO_close Perl_PerlIO_close #define PerlIO_fill Perl_PerlIO_fill @@ -3462,6 +3468,8 @@ #define sv_eq(a,b) Perl_sv_eq(aTHX_ a,b) #define sv_free(a) Perl_sv_free(aTHX_ a) #ifdef PERL_CORE +#endif +#ifdef PERL_CORE #define sv_free_arenas() Perl_sv_free_arenas(aTHX) #endif #define sv_gets(a,b,c) Perl_sv_gets(aTHX_ a,b,c) @@ -3490,6 +3498,7 @@ #define sv_reset(a,b) Perl_sv_reset(aTHX_ a,b) #define sv_vsetpvf(a,b,c) Perl_sv_vsetpvf(aTHX_ a,b,c) #define sv_setiv(a,b) Perl_sv_setiv(aTHX_ a,b) +#define sv_setpviv(a,b) Perl_sv_setpviv(aTHX_ a,b) #define sv_setuv(a,b) Perl_sv_setuv(aTHX_ a,b) #define sv_setnv(a,b) Perl_sv_setnv(aTHX_ a,b) #define sv_setref_iv(a,b,c) Perl_sv_setref_iv(aTHX_ a,b,c) @@ -3608,6 +3617,7 @@ #define sv_catsv_mg(a,b) Perl_sv_catsv_mg(aTHX_ a,b) #define sv_vsetpvf_mg(a,b,c) Perl_sv_vsetpvf_mg(aTHX_ a,b,c) #define sv_setiv_mg(a,b) Perl_sv_setiv_mg(aTHX_ a,b) +#define sv_setpviv_mg(a,b) Perl_sv_setpviv_mg(aTHX_ a,b) #define sv_setuv_mg(a,b) Perl_sv_setuv_mg(aTHX_ a,b) #define sv_setnv_mg(a,b) Perl_sv_setnv_mg(aTHX_ a,b) #define sv_setpv_mg(a,b) Perl_sv_setpv_mg(aTHX_ a,b) @@ -3680,8 +3690,10 @@ #define custom_op_name(a) Perl_custom_op_name(aTHX_ a) #define custom_op_desc(a) Perl_custom_op_desc(aTHX_ a) #if defined(PERL_COPY_ON_WRITE) +#ifdef PERL_CORE #define sv_release_IVX(a) Perl_sv_release_IVX(aTHX_ a) #endif +#endif #define sv_nosharing(a) Perl_sv_nosharing(aTHX_ a) #define sv_nolocking(a) Perl_sv_nolocking(aTHX_ a) #define sv_nounlocking(a) Perl_sv_nounlocking(aTHX_ a) @@ -4478,8 +4490,10 @@ #define my_atof2(a,b) Perl_my_atof2(aTHX_ a,b) #define my_socketpair Perl_my_socketpair #ifdef PERL_COPY_ON_WRITE +#ifdef PERL_CORE #define sv_setsv_cow(a,b) Perl_sv_setsv_cow(aTHX_ a,b) #endif +#endif #if defined(USE_PERLIO) && !defined(USE_SFIO) #define PerlIO_close(a) Perl_PerlIO_close(aTHX_ a) #define PerlIO_fill(a) Perl_PerlIO_fill(aTHX_ a)