Change 16232 by jhi@alpha on 2002/04/27 22:08:08
More VC5-induced casting found by Nikola Knezevic.
Affected files ...
.... //depot/perl/av.c#67 edit
.... //depot/perl/hv.c#114 edit
.... //depot/perl/mg.c#230 edit
.... //depot/perl/sv.c#541 edit
Differences ...
==== //depot/perl/av.c#67 (text) ====
Index: perl/av.c
--- perl/av.c.~1~ Sat Apr 27 16:15:05 2002
+++ perl/av.c Sat Apr 27 16:15:05 2002
@@ -823,7 +823,7 @@
mg = mg_find(sv, PERL_MAGIC_tiedelem);
if (mg) {
magic_existspack(sv, mg);
- return SvTRUE(sv);
+ return (bool)SvTRUE(sv);
}
}
}
==== //depot/perl/hv.c#114 (text) ====
Index: perl/hv.c
--- perl/hv.c.~1~ Sat Apr 27 16:15:05 2002
+++ perl/hv.c Sat Apr 27 16:15:05 2002
@@ -1158,7 +1158,7 @@
sv = sv_newmortal();
mg_copy((SV*)hv, sv, key, klen);
magic_existspack(sv, mg_find(sv, PERL_MAGIC_tiedelem));
- return SvTRUE(sv);
+ return (bool)SvTRUE(sv);
}
#ifdef ENV_IS_CASELESS
else if (mg_find((SV*)hv, PERL_MAGIC_env)) {
@@ -1262,7 +1262,7 @@
keysv = sv_2mortal(newSVsv(keysv));
mg_copy((SV*)hv, sv, (char*)keysv, HEf_SVKEY);
magic_existspack(svret, mg_find(sv, PERL_MAGIC_tiedelem));
- return SvTRUE(svret);
+ return (bool)SvTRUE(svret);
}
#ifdef ENV_IS_CASELESS
else if (mg_find((SV*)hv, PERL_MAGIC_env)) {
==== //depot/perl/mg.c#230 (text) ====
Index: perl/mg.c
--- perl/mg.c.~1~ Sat Apr 27 16:15:05 2002
+++ perl/mg.c Sat Apr 27 16:15:05 2002
@@ -1959,7 +1959,7 @@
}
}
else if (strEQ(mg->mg_ptr+1, "IDE_SYSTEM_CALLS"))
- PL_widesyscalls = SvTRUE(sv);
+ PL_widesyscalls = (bool)SvTRUE(sv);
break;
case '.':
if (PL_localizing) {
==== //depot/perl/sv.c#541 (text) ====
Index: perl/sv.c
--- perl/sv.c.~1~ Sat Apr 27 16:15:05 2002
+++ perl/sv.c Sat Apr 27 16:15:05 2002
@@ -3318,7 +3318,7 @@
SV* tmpsv;
if (SvAMAGIC(sv) && (tmpsv=AMG_CALLun(sv,bool_)) &&
(!SvROK(tmpsv) || (SvRV(tmpsv) != SvRV(sv))))
- return SvTRUE(tmpsv);
+ return (bool)SvTRUE(tmpsv);
return SvRV(sv) != 0;
}
if (SvPOKp(sv)) {
End of Patch.
