Change 13813 by jhi@alpha on 2001/12/19 21:29:49
Some bincompat clawbacks.
Affected files ...
.... //depot/perl/embed.h#315 edit
.... //depot/perl/embed.pl#305 edit
.... //depot/perl/embedvar.h#135 edit
.... //depot/perl/perlapi.h#57 edit
.... //depot/perl/proto.h#358 edit
.... //depot/perl/thrdvar.h#50 edit
.... //depot/perl/utf8.c#135 edit
.... //depot/perl/wince/perldll.def#5 edit
Differences ...
==== //depot/perl/embed.h#315 (text+w) ====
Index: perl/embed.h
--- perl/embed.h.~1~ Wed Dec 19 14:45:06 2001
+++ perl/embed.h Wed Dec 19 14:45:06 2001
@@ -273,6 +273,9 @@
#define invert Perl_invert
#define is_gv_magical Perl_is_gv_magical
#define is_lvalue_sub Perl_is_lvalue_sub
+#define to_uni_upper_lc Perl_to_uni_upper_lc
+#define to_uni_title_lc Perl_to_uni_title_lc
+#define to_uni_lower_lc Perl_to_uni_lower_lc
#define is_uni_alnum Perl_is_uni_alnum
#define is_uni_alnumc Perl_is_uni_alnumc
#define is_uni_idfirst Perl_is_uni_idfirst
@@ -1794,6 +1797,9 @@
#define invert(a) Perl_invert(aTHX_ a)
#define is_gv_magical(a,b,c) Perl_is_gv_magical(aTHX_ a,b,c)
#define is_lvalue_sub() Perl_is_lvalue_sub(aTHX)
+#define to_uni_upper_lc(a) Perl_to_uni_upper_lc(aTHX_ a)
+#define to_uni_title_lc(a) Perl_to_uni_title_lc(aTHX_ a)
+#define to_uni_lower_lc(a) Perl_to_uni_lower_lc(aTHX_ a)
#define is_uni_alnum(a) Perl_is_uni_alnum(aTHX_ a)
#define is_uni_alnumc(a) Perl_is_uni_alnumc(aTHX_ a)
#define is_uni_idfirst(a) Perl_is_uni_idfirst(aTHX_ a)
==== //depot/perl/embed.pl#305 (xtext) ====
Index: perl/embed.pl
--- perl/embed.pl.~1~ Wed Dec 19 14:45:06 2001
+++ perl/embed.pl Wed Dec 19 14:45:06 2001
@@ -1344,7 +1344,10 @@
p |bool |io_close |IO* io|bool not_implicit
p |OP* |invert |OP* cmd
dp |bool |is_gv_magical |char *name|STRLEN len|U32 flags
-p |I32 |is_lvalue_sub
+Ap |I32 |is_lvalue_sub
+Ap |U32 |to_uni_upper_lc|U32 c
+Ap |U32 |to_uni_title_lc|U32 c
+Ap |U32 |to_uni_lower_lc|U32 c
Ap |bool |is_uni_alnum |UV c
Ap |bool |is_uni_alnumc |UV c
Ap |bool |is_uni_idfirst |UV c
==== //depot/perl/embedvar.h#135 (text+w) ====
Index: perl/embedvar.h
--- perl/embedvar.h.~1~ Wed Dec 19 14:45:06 2001
+++ perl/embedvar.h Wed Dec 19 14:45:06 2001
@@ -68,6 +68,7 @@
#define PL_maxscream (vTHX->Tmaxscream)
#define PL_modcount (vTHX->Tmodcount)
#define PL_na (vTHX->Tna)
+#define PL_nrs (vTHX->Tnrs)
#define PL_ofs_sv (vTHX->Tofs_sv)
#define PL_op (vTHX->Top)
#define PL_opsave (vTHX->Topsave)
@@ -161,7 +162,6 @@
#define PL_tmps_stack (vTHX->Ttmps_stack)
#define PL_top_env (vTHX->Ttop_env)
#define PL_toptarget (vTHX->Ttoptarget)
-#define PL_unused_1 (vTHX->Tunused_1)
#define PL_watchaddr (vTHX->Twatchaddr)
#define PL_watchok (vTHX->Twatchok)
@@ -1095,6 +1095,7 @@
#define PL_maxscream (aTHX->Tmaxscream)
#define PL_modcount (aTHX->Tmodcount)
#define PL_na (aTHX->Tna)
+#define PL_nrs (aTHX->Tnrs)
#define PL_ofs_sv (aTHX->Tofs_sv)
#define PL_op (aTHX->Top)
#define PL_opsave (aTHX->Topsave)
@@ -1188,7 +1189,6 @@
#define PL_tmps_stack (aTHX->Ttmps_stack)
#define PL_top_env (aTHX->Ttop_env)
#define PL_toptarget (aTHX->Ttoptarget)
-#define PL_unused_1 (aTHX->Tunused_1)
#define PL_watchaddr (aTHX->Twatchaddr)
#define PL_watchok (aTHX->Twatchok)
@@ -1234,6 +1234,7 @@
#define PL_Tmaxscream PL_maxscream
#define PL_Tmodcount PL_modcount
#define PL_Tna PL_na
+#define PL_Tnrs PL_nrs
#define PL_Tofs_sv PL_ofs_sv
#define PL_Top PL_op
#define PL_Topsave PL_opsave
@@ -1327,7 +1328,6 @@
#define PL_Ttmps_stack PL_tmps_stack
#define PL_Ttop_env PL_top_env
#define PL_Ttoptarget PL_toptarget
-#define PL_Tunused_1 PL_unused_1
#define PL_Twatchaddr PL_watchaddr
#define PL_Twatchok PL_watchok
==== //depot/perl/perlapi.h#57 (text+w) ====
Index: perl/perlapi.h
--- perl/perlapi.h.~1~ Wed Dec 19 14:45:06 2001
+++ perl/perlapi.h Wed Dec 19 14:45:06 2001
@@ -733,6 +733,8 @@
#define PL_modcount (*Perl_Tmodcount_ptr(aTHX))
#undef PL_na
#define PL_na (*Perl_Tna_ptr(aTHX))
+#undef PL_nrs
+#define PL_nrs (*Perl_Tnrs_ptr(aTHX))
#undef PL_ofs_sv
#define PL_ofs_sv (*Perl_Tofs_sv_ptr(aTHX))
#undef PL_op
@@ -919,8 +921,6 @@
#define PL_top_env (*Perl_Ttop_env_ptr(aTHX))
#undef PL_toptarget
#define PL_toptarget (*Perl_Ttoptarget_ptr(aTHX))
-#undef PL_unused_1
-#define PL_unused_1 (*Perl_Tunused_1_ptr(aTHX))
#undef PL_watchaddr
#define PL_watchaddr (*Perl_Twatchaddr_ptr(aTHX))
#undef PL_watchok
==== //depot/perl/proto.h#358 (text+w) ====
Index: perl/proto.h
--- perl/proto.h.~1~ Wed Dec 19 14:45:06 2001
+++ perl/proto.h Wed Dec 19 14:45:06 2001
@@ -327,6 +327,9 @@
PERL_CALLCONV OP* Perl_invert(pTHX_ OP* cmd);
PERL_CALLCONV bool Perl_is_gv_magical(pTHX_ char *name, STRLEN len, U32 flags);
PERL_CALLCONV I32 Perl_is_lvalue_sub(pTHX);
+PERL_CALLCONV U32 Perl_to_uni_upper_lc(pTHX_ U32 c);
+PERL_CALLCONV U32 Perl_to_uni_title_lc(pTHX_ U32 c);
+PERL_CALLCONV U32 Perl_to_uni_lower_lc(pTHX_ U32 c);
PERL_CALLCONV bool Perl_is_uni_alnum(pTHX_ UV c);
PERL_CALLCONV bool Perl_is_uni_alnumc(pTHX_ UV c);
PERL_CALLCONV bool Perl_is_uni_idfirst(pTHX_ UV c);
==== //depot/perl/thrdvar.h#50 (text) ====
Index: perl/thrdvar.h
--- perl/thrdvar.h.~1~ Wed Dec 19 14:45:06 2001
+++ perl/thrdvar.h Wed Dec 19 14:45:06 2001
@@ -81,7 +81,7 @@
/* Fields used by magic variables such as $@, $/ and so on */
PERLVAR(Ttainted, bool) /* using variables controlled by $< */
PERLVAR(Tcurpm, PMOP *) /* what to do \ interps in REs from */
-PERLVAR(Tunused_1, SV *) /* placeholder: was Tnrs */
+PERLVAR(Tnrs, SV *) /* placeholder: unused since 5.8.0 (5.7.2
+patch #12027 for bug ID 20010815.012) */
/*
=for apidoc mn|SV*|PL_rs
==== //depot/perl/utf8.c#135 (text) ====
Index: perl/utf8.c
--- perl/utf8.c.~1~ Wed Dec 19 14:45:06 2001
+++ perl/utf8.c Wed Dec 19 14:45:06 2001
@@ -1041,6 +1041,24 @@
return is_uni_xdigit(c); /* XXX no locale support yet */
}
+U32
+Perl_to_uni_upper_lc(pTHX_ U32 c)
+{
+ return to_uni_upper(c); /* XXX no locale support yet */
+}
+
+U32
+Perl_to_uni_title_lc(pTHX_ U32 c)
+{
+ return to_uni_title(c); /* XXX no locale support yet */
+}
+
+U32
+Perl_to_uni_lower_lc(pTHX_ U32 c)
+{
+ return to_uni_lower(c); /* XXX no locale support yet */
+}
+
bool
Perl_is_utf8_alnum(pTHX_ U8 *p)
{
==== //depot/perl/wince/perldll.def#5 (text) ====
Index: perl/wince/perldll.def
--- perl/wince/perldll.def.~1~ Wed Dec 19 14:45:06 2001
+++ perl/wince/perldll.def Wed Dec 19 14:45:06 2001
@@ -184,6 +184,7 @@
PL_no_usym
PL_no_wrongref
PL_nomemok
+ PL_nrs
PL_ofmt
PL_oldbufptr
PL_oldname
End of Patch.
