Change 29493 by [EMAIL PROTECTED] on 2006/12/09 21:17:37
Exterminate! 2 pieces of superfluous code related to UV setting.
Affected files ...
... //depot/perl/sv.c#1331 edit
Differences ...
==== //depot/perl/sv.c#1331 (text) ====
Index: perl/sv.c
--- perl/sv.c#1330~29488~ 2006-12-08 14:20:41.000000000 -0800
+++ perl/sv.c 2006-12-09 13:17:37.000000000 -0800
@@ -1558,8 +1558,6 @@
void
Perl_sv_setuv_mg(pTHX_ register SV *sv, UV u)
{
- sv_setiv(sv, 0);
- SvIsUV_on(sv);
sv_setuv(sv,u);
SvSETMAGIC(sv);
}
@@ -2746,7 +2744,6 @@
if (SvIOK(sv) || ((SvIOKp(sv) && !SvNOKp(sv)))) {
/* I'm assuming that if both IV and NV are equally valid then
converting the IV is going to be more efficient */
- const U32 isIOK = SvIOK(sv);
const U32 isUIOK = SvIsUV(sv);
char buf[TYPE_CHARS(UV)];
char *ebuf, *ptr;
@@ -2760,12 +2757,6 @@
SvCUR_set(sv, ebuf - ptr);
s = SvEND(sv);
*s = '\0';
- if (isIOK)
- SvIOK_on(sv);
- else
- SvIOKp_on(sv);
- if (isUIOK)
- SvIsUV_on(sv);
}
else if (SvNOKp(sv)) {
const int olderrno = errno;
End of Patch.
