This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Re: Cygwin PerlIO.t failing
[perl5.git]
/
sv.c
diff --git
a/sv.c
b/sv.c
index
ac40900
..
ef61d1b
100644
(file)
--- a/
sv.c
+++ b/
sv.c
@@
-2875,8
+2875,8
@@
uiv_2buf(char *buf, IV iv, UV uv, int is_uv, char **peob)
return ptr;
}
return ptr;
}
-/*
For backwards-compatibility only. sv_2pv() is normally #def'ed to
- *
C<sv_2pv_macro()>. See also C<sv_2pv_flags()>.
+/*
sv_2pv() is now a macro using Perl_sv_2pv_flags();
+ *
this function provided for binary compatibility only
*/
char *
*/
char *
@@
-3322,6
+3322,11
@@
use the Encode extension for that.
=cut
*/
=cut
*/
+/* sv_utf8_upgrade() is now a macro using sv_utf8_upgrade_flags();
+ * this function provided for binary compatibility only
+ */
+
+
STRLEN
Perl_sv_utf8_upgrade(pTHX_ register SV *sv)
{
STRLEN
Perl_sv_utf8_upgrade(pTHX_ register SV *sv)
{
@@
-3516,9
+3521,10
@@
C<SvSetMagicSV_nosteal>.
=cut
*/
=cut
*/
-/* sv_setsv() is aliased to Perl_sv_setsv_macro; this function provided
- for binary compatibility only
-*/
+/* sv_setsv() is now a macro using Perl_sv_setsv_flags();
+ * this function provided for binary compatibility only
+ */
+
void
Perl_sv_setsv(pTHX_ SV *dstr, register SV *sstr)
{
void
Perl_sv_setsv(pTHX_ SV *dstr, register SV *sstr)
{
@@
-4247,9
+4253,10
@@
Handles 'get' magic, but not 'set' magic. See C<sv_catpvn_mg>.
=cut
*/
=cut
*/
-/* sv_catpvn() is aliased to Perl_sv_catpvn_macro; this function provided
- for binary compatibility only
-*/
+/* sv_catpvn() is now a macro using Perl_sv_catpvn_flags();
+ * this function provided for binary compatibility only
+ */
+
void
Perl_sv_catpvn(pTHX_ SV *dsv, const char* sstr, STRLEN slen)
{
void
Perl_sv_catpvn(pTHX_ SV *dsv, const char* sstr, STRLEN slen)
{
@@
-4310,9
+4317,10
@@
not 'set' magic. See C<sv_catsv_mg>.
=cut */
=cut */
-/* sv_catsv() is aliased to Perl_sv_catsv_macro; this function provided
- for binary compatibility only
-*/
+/* sv_catsv() is now a macro using Perl_sv_catsv_flags();
+ * this function provided for binary compatibility only
+ */
+
void
Perl_sv_catsv(pTHX_ SV *dstr, register SV *sstr)
{
void
Perl_sv_catsv(pTHX_ SV *dstr, register SV *sstr)
{
@@
-6847,12
+6855,16
@@
Perl_sv_nv(pTHX_ register SV *sv)
/*
=for apidoc sv_pv
/*
=for apidoc sv_pv
-A private implementation of the C<SvPV_nolen> macro for compilers which can't
-cope with complex macro expressions. Always use the macro instead.
+Use the C<SvPV_nolen> macro instead
=cut
*/
=cut
*/
+/* sv_pv() is now a macro using SvPV_nolen();
+ * this function provided for binary compatibility only
+ */
+
+
char *
Perl_sv_pv(pTHX_ SV *sv)
{
char *
Perl_sv_pv(pTHX_ SV *sv)
{
@@
-6883,8
+6895,6
@@
Perl_sv_pvn(pTHX_ SV *sv, STRLEN *lp)
return sv_2pv(sv, lp);
}
return sv_2pv(sv, lp);
}
-/* For -DCRIPPLED_CC only. See also C<sv_2pv_flags()>.
- */
char *
Perl_sv_pvn_nomg(pTHX_ register SV *sv, STRLEN *lp)
char *
Perl_sv_pvn_nomg(pTHX_ register SV *sv, STRLEN *lp)
@@
-6906,6
+6916,10
@@
can't cope with complex macro expressions. Always use the macro instead.
=cut
*/
=cut
*/
+/* sv_pvn_force() is now a macro using Perl_sv_pvn_force_flags();
+ * this function provided for binary compatibility only
+ */
+
char *
Perl_sv_pvn_force(pTHX_ SV *sv, STRLEN *lp)
{
char *
Perl_sv_pvn_force(pTHX_ SV *sv, STRLEN *lp)
{
@@
-6967,13
+6981,16
@@
Perl_sv_pvn_force_flags(pTHX_ SV *sv, STRLEN *lp, I32 flags)
/*
=for apidoc sv_pvbyte
/*
=for apidoc sv_pvbyte
-A private implementation of the C<SvPVbyte_nolen> macro for compilers
-which can't cope with complex macro expressions. Always use the macro
-instead.
+Use C<SvPVbyte_nolen> instead.
=cut
*/
=cut
*/
+/* sv_pvbyte () is now a macro using Perl_sv_2pv_flags();
+ * this function provided for binary compatibility only
+ */
+
+
char *
Perl_sv_pvbyte(pTHX_ SV *sv)
{
char *
Perl_sv_pvbyte(pTHX_ SV *sv)
{
@@
-7018,12
+7035,14
@@
Perl_sv_pvbyten_force(pTHX_ SV *sv, STRLEN *lp)
/*
=for apidoc sv_pvutf8
/*
=for apidoc sv_pvutf8
-A private implementation of the C<SvPVutf8_nolen> macro for compilers
-which can't cope with complex macro expressions. Always use the macro
-instead.
+Use the C<SvPVutf8_nolen> macro instead
=cut
*/
=cut
*/
+/* sv_pvutf8 () is now a macro using Perl_sv_2pv_flags();
+ * this function provided for binary compatibility only
+ */
+
char *
Perl_sv_pvutf8(pTHX_ SV *sv)
char *
Perl_sv_pvutf8(pTHX_ SV *sv)
@@
-7837,7
+7856,7
@@
Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
SV *vecsv;
U8 *vecstr = Null(U8*);
STRLEN veclen = 0;
SV *vecsv;
U8 *vecstr = Null(U8*);
STRLEN veclen = 0;
- char c;
+ char c
= 0
;
int i;
unsigned base = 0;
IV iv = 0;
int i;
unsigned base = 0;
IV iv = 0;
@@
-8592,6
+8611,7
@@
Perl_re_dup(pTHX_ REGEXP *r, CLONE_PARAMS *param)
s->min_offset = r->substrs->data[i].min_offset;
s->max_offset = r->substrs->data[i].max_offset;
s->substr = sv_dup_inc(r->substrs->data[i].substr, param);
s->min_offset = r->substrs->data[i].min_offset;
s->max_offset = r->substrs->data[i].max_offset;
s->substr = sv_dup_inc(r->substrs->data[i].substr, param);
+ s->utf8_substr = sv_dup_inc(r->substrs->data[i].utf8_substr, param);
}
ret->regstclass = NULL;
}
ret->regstclass = NULL;
@@
-9988,11
+10008,9
@@
perl_clone_using(PerlInterpreter *proto_perl, UV flags,
#endif
PL_encoding = sv_dup(proto_perl->Iencoding, param);
#endif
PL_encoding = sv_dup(proto_perl->Iencoding, param);
-#ifdef DEBUGGING
sv_setpvn(PERL_DEBUG_PAD(0), "", 0); /* For regex debugging. */
sv_setpvn(PERL_DEBUG_PAD(0), "", 0); /* For regex debugging. */
- sv_setpvn(PERL_DEBUG_PAD(1), "", 0);
- sv_setpvn(PERL_DEBUG_PAD(2), "", 0);
-#endif
+ sv_setpvn(PERL_DEBUG_PAD(1), "", 0); /* ext/re needs these */
+ sv_setpvn(PERL_DEBUG_PAD(2), "", 0); /* even without DEBUGGING. */
/* Clone the regex array */
PL_regex_padav = newAV();
/* Clone the regex array */
PL_regex_padav = newAV();