diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-09 20:15:13 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-09 20:15:13 +0000 |
| commit | 3c1e9986a4f0cb9d4e7a03af421826eb692ac840 (patch) | |
| tree | 64a6cea7d58b8cc43406fe083d1e73e3755d88f7 | |
| parent | 55222be88d47a690542bb115106ab0ffa7223aaa (diff) | |
| download | perl-3c1e9986a4f0cb9d4e7a03af421826eb692ac840.tar.gz | |
Must not hide the protos, though.
p4raw-id: //depot/perl@18871
| -rwxr-xr-x | embed.pl | 4 | ||||
| -rw-r--r-- | proto.h | 6 |
2 files changed, 5 insertions, 5 deletions
@@ -156,7 +156,7 @@ sub write_protos { } else { my ($flags,$retval,$func,@args) = @_; - $ret .= '/* ' if $flags =~ /[mX]/; + $ret .= '/* ' if $flags =~ /m/; if ($flags =~ /s/) { $retval = "STATIC $retval"; $func = "S_$func"; @@ -189,7 +189,7 @@ sub write_protos { $ret .= "\n#endif\n"; } $ret .= ";"; - $ret .= ' */' if $flags =~ /[mX]/; + $ret .= ' */' if $flags =~ /m/; $ret .= "\n"; } $ret; @@ -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); @@ -989,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 *); @@ -1337,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) |