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
Eliminate (SV *) casts from sv.c and [tu]*.c, except for the cast in
[perl5.git]
/
universal.c
diff --git
a/universal.c
b/universal.c
index
3745ff9
..
6ba4439
100644
(file)
--- a/
universal.c
+++ b/
universal.c
@@
-366,7
+366,7
@@
XS(XS_UNIVERSAL_can)
rv = &PL_sv_undef;
if (SvROK(sv)) {
rv = &PL_sv_undef;
if (SvROK(sv)) {
- sv =
(SV*)SvRV(sv
);
+ sv =
MUTABLE_SV(SvRV(sv)
);
if (SvOBJECT(sv))
pkg = SvSTASH(sv);
}
if (SvOBJECT(sv))
pkg = SvSTASH(sv);
}
@@
-377,7
+377,7
@@
XS(XS_UNIVERSAL_can)
if (pkg) {
GV * const gv = gv_fetchmethod_autoload(pkg, name, FALSE);
if (gv && isGV(gv))
if (pkg) {
GV * const gv = gv_fetchmethod_autoload(pkg, name, FALSE);
if (gv && isGV(gv))
- rv = sv_2mortal(newRV(
(SV*)GvCV(gv
)));
+ rv = sv_2mortal(newRV(
MUTABLE_SV(GvCV(gv)
)));
}
ST(0) = rv;
}
ST(0) = rv;
@@
-416,7
+416,7
@@
XS(XS_UNIVERSAL_VERSION)
PERL_UNUSED_ARG(cv);
if (SvROK(ST(0))) {
PERL_UNUSED_ARG(cv);
if (SvROK(ST(0))) {
- sv =
(SV*)SvRV(ST(0
));
+ sv =
MUTABLE_SV(SvRV(ST(0)
));
if (!SvOBJECT(sv))
Perl_croak(aTHX_ "Cannot find version of an unblessed reference");
pkg = SvSTASH(sv);
if (!SvOBJECT(sv))
Perl_croak(aTHX_ "Cannot find version of an unblessed reference");
pkg = SvSTASH(sv);
@@
-436,7
+436,7
@@
XS(XS_UNIVERSAL_VERSION)
undef = NULL;
}
else {
undef = NULL;
}
else {
- sv =
(SV*)
&PL_sv_undef;
+ sv = &PL_sv_undef;
undef = "(undef)";
}
undef = "(undef)";
}
@@
-504,7
+504,7
@@
XS(XS_version_new)
if ( items == 1 || vs == &PL_sv_undef ) { /* no param or explicit undef */
/* create empty object */
vs = sv_newmortal();
if ( items == 1 || vs == &PL_sv_undef ) { /* no param or explicit undef */
/* create empty object */
vs = sv_newmortal();
- sv_setpv
n(vs,"",0
);
+ sv_setpv
s(vs,""
);
}
else if ( items == 3 ) {
vs = sv_newmortal();
}
else if ( items == 3 ) {
vs = sv_newmortal();
@@
-1256,7
+1256,7
@@
XS(XS_re_regexp_pattern)
/* Scalar, so use the string that Perl would return */
/* return the pattern in (?msix:..) format */
#if PERL_VERSION >= 11
/* Scalar, so use the string that Perl would return */
/* return the pattern in (?msix:..) format */
#if PERL_VERSION >= 11
- pattern = sv_2mortal(newSVsv(
(SV*)re
));
+ pattern = sv_2mortal(newSVsv(
MUTABLE_SV(re)
));
#else
pattern = newSVpvn_flags(RX_WRAPPED(re), RX_WRAPLEN(re),
(RX_UTF8(re) ? SVf_UTF8 : 0) | SVs_TEMP);
#else
pattern = newSVpvn_flags(RX_WRAPPED(re), RX_WRAPLEN(re),
(RX_UTF8(re) ? SVf_UTF8 : 0) | SVs_TEMP);
@@
-1305,7
+1305,7
@@
XS(XS_Tie_Hash_NamedCapture_FETCH)
SP -= items;
SP -= items;
- flags = (U32)INT2PTR(IV,SvIV(SvRV(
(SV*)ST(0
))));
+ flags = (U32)INT2PTR(IV,SvIV(SvRV(
MUTABLE_SV(ST(0)
))));
ret = CALLREG_NAMED_BUFF_FETCH(rx, ST(1), flags);
SPAGAIN;
ret = CALLREG_NAMED_BUFF_FETCH(rx, ST(1), flags);
SPAGAIN;
@@
-1339,7
+1339,7
@@
XS(XS_Tie_Hash_NamedCapture_STORE)
SP -= items;
SP -= items;
- flags = (U32)INT2PTR(IV,SvIV(SvRV(
(SV*)ST(0
))));
+ flags = (U32)INT2PTR(IV,SvIV(SvRV(
MUTABLE_SV(ST(0)
))));
CALLREG_NAMED_BUFF_STORE(rx,ST(1), ST(2), flags);
}
CALLREG_NAMED_BUFF_STORE(rx,ST(1), ST(2), flags);
}
@@
-1358,7
+1358,7
@@
XS(XS_Tie_Hash_NamedCapture_DELETE)
SP -= items;
SP -= items;
- flags = (U32)INT2PTR(IV,SvIV(SvRV(
(SV*)ST(0
))));
+ flags = (U32)INT2PTR(IV,SvIV(SvRV(
MUTABLE_SV(ST(0)
))));
CALLREG_NAMED_BUFF_DELETE(rx, ST(1), flags);
}
CALLREG_NAMED_BUFF_DELETE(rx, ST(1), flags);
}
@@
-1379,7
+1379,7
@@
XS(XS_Tie_Hash_NamedCapture_CLEAR)
SP -= items;
SP -= items;
- flags = (U32)INT2PTR(IV,SvIV(SvRV(
(SV*)ST(0
))));
+ flags = (U32)INT2PTR(IV,SvIV(SvRV(
MUTABLE_SV(ST(0)
))));
CALLREG_NAMED_BUFF_CLEAR(rx, flags);
}
CALLREG_NAMED_BUFF_CLEAR(rx, flags);
}
@@
-1401,7
+1401,7
@@
XS(XS_Tie_Hash_NamedCapture_EXISTS)
SP -= items;
SP -= items;
- flags = (U32)INT2PTR(IV,SvIV(SvRV(
(SV*)ST(0
))));
+ flags = (U32)INT2PTR(IV,SvIV(SvRV(
MUTABLE_SV(ST(0)
))));
ret = CALLREG_NAMED_BUFF_EXISTS(rx, ST(1), flags);
SPAGAIN;
ret = CALLREG_NAMED_BUFF_EXISTS(rx, ST(1), flags);
SPAGAIN;
@@
-1429,7
+1429,7
@@
XS(XS_Tie_Hash_NamedCapture_FIRSTK)
SP -= items;
SP -= items;
- flags = (U32)INT2PTR(IV,SvIV(SvRV(
(SV*)ST(0
))));
+ flags = (U32)INT2PTR(IV,SvIV(SvRV(
MUTABLE_SV(ST(0)
))));
ret = CALLREG_NAMED_BUFF_FIRSTKEY(rx, flags);
SPAGAIN;
ret = CALLREG_NAMED_BUFF_FIRSTKEY(rx, flags);
SPAGAIN;
@@
-1461,7
+1461,7
@@
XS(XS_Tie_Hash_NamedCapture_NEXTK)
SP -= items;
SP -= items;
- flags = (U32)INT2PTR(IV,SvIV(SvRV(
(SV*)ST(0
))));
+ flags = (U32)INT2PTR(IV,SvIV(SvRV(
MUTABLE_SV(ST(0)
))));
ret = CALLREG_NAMED_BUFF_NEXTKEY(rx, ST(1), flags);
SPAGAIN;
ret = CALLREG_NAMED_BUFF_NEXTKEY(rx, ST(1), flags);
SPAGAIN;
@@
-1492,7
+1492,7
@@
XS(XS_Tie_Hash_NamedCapture_SCALAR)
SP -= items;
SP -= items;
- flags = (U32)INT2PTR(IV,SvIV(SvRV(
(SV*)ST(0
))));
+ flags = (U32)INT2PTR(IV,SvIV(SvRV(
MUTABLE_SV(ST(0)
))));
ret = CALLREG_NAMED_BUFF_SCALAR(rx, flags);
SPAGAIN;
ret = CALLREG_NAMED_BUFF_SCALAR(rx, flags);
SPAGAIN;