diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-09 19:04:22 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-09 19:04:22 +0000 |
| commit | db2b0bab8e5c98bc74fde3b86eb3523fbfef5650 (patch) | |
| tree | abc1d50e82bef27024e2bcfd04643efa77cd7657 /proto.h | |
| parent | 05ef2f67942fd3cfa0c9e6043d11b82a5ddbc805 (diff) | |
| download | perl-db2b0bab8e5c98bc74fde3b86eb3523fbfef5650.tar.gz | |
Export the symbols from #18863; do not prototype (but export)
Nicholas Clark's experimental COW functions.
Sidenote: the embed.fnc/embed.fnc/makedef.pl thing is becoming
a mess of Herculean proportions. Someone should redesign and
clean up the stables.
p4raw-id: //depot/perl@18868
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -764,7 +764,7 @@ PERL_CALLCONV void Perl_sv_dump(pTHX_ SV* sv); PERL_CALLCONV bool Perl_sv_derived_from(pTHX_ SV* sv, const char* name); PERL_CALLCONV I32 Perl_sv_eq(pTHX_ SV* sv1, SV* sv2); PERL_CALLCONV void Perl_sv_free(pTHX_ SV* sv); -PERL_CALLCONV void Perl_sv_free2(pTHX_ SV* sv); +/* PERL_CALLCONV void Perl_sv_free2(pTHX_ SV* sv); */ PERL_CALLCONV void Perl_sv_free_arenas(pTHX); PERL_CALLCONV char* Perl_sv_gets(pTHX_ SV* sv, PerlIO* fp, I32 append); PERL_CALLCONV char* Perl_sv_grow(pTHX_ SV* sv, STRLEN newlen); @@ -798,6 +798,7 @@ PERL_CALLCONV void Perl_sv_setpvf(pTHX_ SV* sv, const char* pat, ...) ; PERL_CALLCONV void Perl_sv_vsetpvf(pTHX_ SV* sv, const char* pat, va_list* args); PERL_CALLCONV void Perl_sv_setiv(pTHX_ SV* sv, IV num); +PERL_CALLCONV void Perl_sv_setpviv(pTHX_ SV* sv, IV num); PERL_CALLCONV void Perl_sv_setuv(pTHX_ SV* sv, UV num); PERL_CALLCONV void Perl_sv_setnv(pTHX_ SV* sv, NV num); PERL_CALLCONV SV* Perl_sv_setref_iv(pTHX_ SV* rv, const char* classname, IV iv); @@ -909,6 +910,7 @@ PERL_CALLCONV void Perl_sv_setpvf_mg(pTHX_ SV *sv, const char* pat, ...) ; PERL_CALLCONV void Perl_sv_vsetpvf_mg(pTHX_ SV* sv, const char* pat, va_list* args); PERL_CALLCONV void Perl_sv_setiv_mg(pTHX_ SV *sv, IV i); +PERL_CALLCONV void Perl_sv_setpviv_mg(pTHX_ SV *sv, IV iv); PERL_CALLCONV void Perl_sv_setuv_mg(pTHX_ SV *sv, UV u); PERL_CALLCONV void Perl_sv_setnv_mg(pTHX_ SV *sv, NV num); PERL_CALLCONV void Perl_sv_setpv_mg(pTHX_ SV *sv, const char *ptr); @@ -987,7 +989,7 @@ PERL_CALLCONV char * Perl_custom_op_name(pTHX_ OP* op); PERL_CALLCONV char * Perl_custom_op_desc(pTHX_ OP* op); #if defined(PERL_COPY_ON_WRITE) -PERL_CALLCONV int Perl_sv_release_IVX(pTHX_ SV *sv); +/* PERL_CALLCONV int Perl_sv_release_IVX(pTHX_ SV *sv); */ #endif PERL_CALLCONV void Perl_sv_nosharing(pTHX_ SV *); @@ -1335,7 +1337,7 @@ PERL_CALLCONV void Perl_sv_copypv(pTHX_ SV* dsv, SV* ssv); PERL_CALLCONV char* Perl_my_atof2(pTHX_ const char *s, NV* value); PERL_CALLCONV int Perl_my_socketpair(int family, int type, int protocol, int fd[2]); #ifdef PERL_COPY_ON_WRITE -PERL_CALLCONV SV* Perl_sv_setsv_cow(pTHX_ SV* dsv, SV* ssv); +/* PERL_CALLCONV SV* Perl_sv_setsv_cow(pTHX_ SV* dsv, SV* ssv); */ #endif #if defined(USE_PERLIO) && !defined(USE_SFIO) |