Change 18868 by [EMAIL PROTECTED] on 2003/03/09 19:04:22
Export the symbols from #18863; do not prototype (but export)
Nick 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.
Affected files ...
... //depot/perl/embed.fnc#71 edit
... //depot/perl/embed.pl#332 edit
... //depot/perl/global.sym#237 edit
... //depot/perl/proto.h#426 edit
Differences ...
==== //depot/perl/embed.fnc#71 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#70~18795~ Sat Mar 1 23:27:44 2003
+++ perl/embed.fnc Sun Mar 9 11:04:22 2003
@@ -6,18 +6,22 @@
:
: flags are single letters with following meanings:
: A member of public API
-: m Implemented as a macro - no export, no proto, no #define
+: m Implemented as a macro - no export, no
+: proto, no #define
: d function has documentation with its source
-: s static function, should have an S_ prefix in source
-: file
+: s static function, should have an S_ prefix in
+: source file
: n has no implicit interpreter/thread context argument
: p function has a Perl_ prefix
: f function takes printf style format string, varargs
: r function never returns
: o has no compatibility macro (#define foo Perl_foo)
: x not exported
-: M may change
+: M may change: no Perl_ proto, but exported
: 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.
:
@@ -691,7 +695,7 @@
Apd |IV |sv_2iv |SV* sv
Apd |SV* |sv_2mortal |SV* sv
Apd |NV |sv_2nv |SV* sv
-Am |char* |sv_2pv |SV* sv|STRLEN* lp
+Amb |char* |sv_2pv |SV* sv|STRLEN* lp
Apd |char* |sv_2pvutf8 |SV* sv|STRLEN* lp
Apd |char* |sv_2pvbyte |SV* sv|STRLEN* lp
Ap |char* |sv_pvn_nomg |SV* sv|STRLEN* lp
@@ -709,8 +713,8 @@
Afpd |void |sv_catpvf |SV* sv|const char* pat|...
Ap |void |sv_vcatpvf |SV* sv|const char* pat|va_list* args
Apd |void |sv_catpv |SV* sv|const char* ptr
-Amd |void |sv_catpvn |SV* sv|const char* ptr|STRLEN len
-Amd |void |sv_catsv |SV* dsv|SV* ssv
+Amdb |void |sv_catpvn |SV* sv|const char* ptr|STRLEN len
+Amdb |void |sv_catsv |SV* dsv|SV* ssv
Apd |void |sv_chop |SV* sv|char* ptr
pd |I32 |sv_clean_all
pd |void |sv_clean_objs
@@ -727,7 +731,7 @@
Apd |bool |sv_derived_from|SV* sv|const char* name
Apd |I32 |sv_eq |SV* sv1|SV* sv2
Apd |void |sv_free |SV* sv
-Apo |void |sv_free2 |SV* sv
+ApoMX |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
@@ -748,7 +752,7 @@
Ap |char* |sv_peek |SV* sv
Apd |void |sv_pos_u2b |SV* sv|I32* offsetp|I32* lenp
Apd |void |sv_pos_b2u |SV* sv|I32* offsetp
-Amd |char* |sv_pvn_force |SV* sv|STRLEN* lp
+Amdb |char* |sv_pvn_force |SV* sv|STRLEN* lp
Apd |char* |sv_pvutf8n_force|SV* sv|STRLEN* lp
Apd |char* |sv_pvbyten_force|SV* sv|STRLEN* lp
Apd |char* |sv_recode_to_utf8 |SV* sv|SV *encoding
@@ -761,6 +765,7 @@
Afpd |void |sv_setpvf |SV* sv|const char* pat|...
Ap |void |sv_vsetpvf |SV* sv|const char* pat|va_list* args
Apd |void |sv_setiv |SV* sv|IV num
+Apdb |void |sv_setpviv |SV* sv|IV num
Apd |void |sv_setuv |SV* sv|UV num
Apd |void |sv_setnv |SV* sv|NV num
Apd |SV* |sv_setref_iv |SV* rv|const char* classname|IV iv
@@ -771,7 +776,7 @@
|STRLEN n
Apd |void |sv_setpv |SV* sv|const char* ptr
Apd |void |sv_setpvn |SV* sv|const char* ptr|STRLEN len
-Amd |void |sv_setsv |SV* dsv|SV* ssv
+Amdb |void |sv_setsv |SV* dsv|SV* ssv
Apd |void |sv_taint |SV* sv
Apd |bool |sv_tainted |SV* sv
Apd |int |sv_unmagic |SV* sv|int type
@@ -864,6 +869,7 @@
Afpd |void |sv_setpvf_mg |SV *sv|const char* pat|...
Ap |void |sv_vsetpvf_mg |SV* sv|const char* pat|va_list* args
Apd |void |sv_setiv_mg |SV *sv|IV i
+Apdb |void |sv_setpviv_mg |SV *sv|IV iv
Apd |void |sv_setuv_mg |SV *sv|UV u
Apd |void |sv_setnv_mg |SV *sv|NV num
Apd |void |sv_setpv_mg |SV *sv|const char *ptr
@@ -896,10 +902,10 @@
Apd |char* |sv_2pv_nolen |SV* sv
Apd |char* |sv_2pvutf8_nolen|SV* sv
Apd |char* |sv_2pvbyte_nolen|SV* sv
-Amd |char* |sv_pv |SV *sv
-Amd |char* |sv_pvutf8 |SV *sv
-Amd |char* |sv_pvbyte |SV *sv
-Amd |STRLEN |sv_utf8_upgrade|SV *sv
+Amdb |char* |sv_pv |SV *sv
+Amdb |char* |sv_pvutf8 |SV *sv
+Amdb |char* |sv_pvbyte |SV *sv
+Amdb |STRLEN |sv_utf8_upgrade|SV *sv
ApdM |bool |sv_utf8_downgrade|SV *sv|bool fail_ok
Apd |void |sv_utf8_encode |SV *sv
ApdM |bool |sv_utf8_decode |SV *sv
@@ -945,7 +951,7 @@
Ap |char * |custom_op_desc|OP* op
#if defined(PERL_COPY_ON_WRITE)
-ApM |int |sv_release_IVX |SV *sv
+pMX |int |sv_release_IVX |SV *sv
#endif
Adp |void |sv_nosharing |SV *
@@ -1305,7 +1311,7 @@
Ap |char* |my_atof2 |const char *s|NV* value
Apn |int |my_socketpair |int family|int type|int protocol|int fd[2]
#ifdef PERL_COPY_ON_WRITE
-Ap |SV* |sv_setsv_cow |SV* dsv|SV* ssv
+pMX |SV* |sv_setsv_cow |SV* dsv|SV* ssv
#endif
#if defined(USE_PERLIO) && !defined(USE_SFIO)
==== //depot/perl/embed.pl#332 (xtext) ====
Index: perl/embed.pl
--- perl/embed.pl#331~18851~ Fri Mar 7 22:49:35 2003
+++ perl/embed.pl Sun Mar 9 11:04:22 2003
@@ -156,7 +156,7 @@
}
else {
my ($flags,$retval,$func,@args) = @_;
- $ret .= '/* ' if $flags =~ /m/;
+ $ret .= '/* ' if $flags =~ /[mX]/;
if ($flags =~ /s/) {
$retval = "STATIC $retval";
$func = "S_$func";
@@ -189,7 +189,7 @@
$ret .= "\n#endif\n";
}
$ret .= ";";
- $ret .= ' */' if $flags =~ /m/;
+ $ret .= ' */' if $flags =~ /[mX]/;
$ret .= "\n";
}
$ret;
@@ -200,8 +200,9 @@
my $ret = "";
if (@_ > 1) {
my ($flags,$retval,$func,@args) = @_;
- if ($flags =~ /A/ && $flags !~ /[xm]/) { # public API, so export
- $func = "Perl_$func" if $flags =~ /p/;
+ if ($flags =~ /[AX]/ && $flags !~ /[xm]/
+ || $flags =~ /b/) { # public API, so export
+ $func = "Perl_$func" if $flags =~ /[pbX]/;
$ret = "$func\n";
}
}
==== //depot/perl/global.sym#237 (text+w) ====
Index: perl/global.sym
--- perl/global.sym#236~18801~ Sun Mar 2 07:24:22 2003
+++ perl/global.sym Sun Mar 9 11:04:22 2003
@@ -422,6 +422,7 @@
Perl_sv_2iv
Perl_sv_2mortal
Perl_sv_2nv
+Perl_sv_2pv
Perl_sv_2pvutf8
Perl_sv_2pvbyte
Perl_sv_pvn_nomg
@@ -438,6 +439,8 @@
Perl_sv_catpvf
Perl_sv_vcatpvf
Perl_sv_catpv
+Perl_sv_catpvn
+Perl_sv_catsv
Perl_sv_chop
Perl_sv_clear
Perl_sv_cmp
@@ -467,6 +470,7 @@
Perl_sv_peek
Perl_sv_pos_u2b
Perl_sv_pos_b2u
+Perl_sv_pvn_force
Perl_sv_pvutf8n_force
Perl_sv_pvbyten_force
Perl_sv_recode_to_utf8
@@ -478,6 +482,7 @@
Perl_sv_setpvf
Perl_sv_vsetpvf
Perl_sv_setiv
+Perl_sv_setpviv
Perl_sv_setuv
Perl_sv_setnv
Perl_sv_setref_iv
@@ -487,6 +492,7 @@
Perl_sv_setref_pvn
Perl_sv_setpv
Perl_sv_setpvn
+Perl_sv_setsv
Perl_sv_taint
Perl_sv_tainted
Perl_sv_unmagic
@@ -550,6 +556,7 @@
Perl_sv_setpvf_mg
Perl_sv_vsetpvf_mg
Perl_sv_setiv_mg
+Perl_sv_setpviv_mg
Perl_sv_setuv_mg
Perl_sv_setnv_mg
Perl_sv_setpv_mg
@@ -574,6 +581,10 @@
Perl_sv_2pv_nolen
Perl_sv_2pvutf8_nolen
Perl_sv_2pvbyte_nolen
+Perl_sv_pv
+Perl_sv_pvutf8
+Perl_sv_pvbyte
+Perl_sv_utf8_upgrade
Perl_sv_utf8_downgrade
Perl_sv_utf8_encode
Perl_sv_utf8_decode
==== //depot/perl/proto.h#426 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#425~18801~ Sun Mar 2 07:24:22 2003
+++ perl/proto.h Sun Mar 9 11:04:22 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);
@@ -798,6 +798,7 @@
;
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_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_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 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.
