Change 18871: Must not hide the protos, though.

[Jarkko Hietaniemi]

Change 18871 by [EMAIL PROTECTED] on 2003/03/09 20:15:13

        Must not hide the protos, though.

Affected files ...

... //depot/perl/embed.pl#333 edit
... //depot/perl/proto.h#427 edit

Differences ...

==== //depot/perl/embed.pl#333 (xtext) ====
Index: perl/embed.pl
--- perl/embed.pl#332~18868~    Sun Mar  9 11:04:22 2003
+++ perl/embed.pl       Sun Mar  9 12:15:13 2003
@@ -156,7 +156,7 @@
     }
     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 @@
            $ret .= "\n#endif\n";
        }
        $ret .= ";";
-       $ret .= ' */' if $flags =~ /[mX]/;
+       $ret .= ' */' if $flags =~ /m/;
        $ret .= "\n";
     }
     $ret;

==== //depot/perl/proto.h#427 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#426~18868~     Sun Mar  9 11:04:22 2003
+++ perl/proto.h        Sun Mar  9 12:15:13 2003
@@ -764,7 +764,7 @@
 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_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 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)
End of Patch.