Change 20575 by [EMAIL PROTECTED] on 2003/08/09 07:24:43
Retract #20524 since it was due to broken INT32_MIN in
Cygwin 1.5's stdint.h.
Affected files ...
... //depot/perl/pad.c#23 edit
Differences ...
==== //depot/perl/pad.c#23 (text) ====
Index: perl/pad.c
--- perl/pad.c#22~20524~ Wed Aug 6 06:36:44 2003
+++ perl/pad.c Sat Aug 9 00:24:43 2003
@@ -558,7 +558,7 @@
&& !SvFAKE(namesv)
&& (SvFLAGS(namesv) & SVpad_OUR)
&& strEQ(SvPVX(namesv), name)
- && U_32(SvNVX(namesv)) == PAD_MAX /* min */
+ && (U32)I_32(SvNVX(namesv)) == PAD_MAX /* min */
)
return offset;
}
@@ -631,8 +631,8 @@
{
if (SvFAKE(namesv))
fake_offset = offset; /* in case we don't find a real one */
- else if ( seq > U_32(SvNVX(namesv)) /* min */
- && seq <= (U32)SvIVX(namesv)) /* max */
+ else if ( seq > (U32)I_32(SvNVX(namesv)) /* min */
+ && seq <= (U32)SvIVX(namesv)) /* max */
break;
}
}
@@ -656,7 +656,7 @@
DEBUG_Xv(PerlIO_printf(Perl_debug_log,
"Pad findlex cv=0x%"UVxf" matched: offset=%ld (%ld,%ld)\n",
- PTR2UV(cv), (long)offset, (long)U_32(SvNVX(*out_name_sv)),
+ PTR2UV(cv), (long)offset, (long)I_32(SvNVX(*out_name_sv)),
(long)SvIVX(*out_name_sv)));
}
else { /* fake match */
@@ -925,7 +925,7 @@
DEBUG_Xv(PerlIO_printf(Perl_debug_log,
"Pad intromy: %ld \"%s\", (%ld,%ld)\n",
(long)i, SvPVX(sv),
- (long)U_32(SvNVX(sv)), (long)SvIVX(sv))
+ (long)I_32(SvNVX(sv)), (long)SvIVX(sv))
);
}
}
@@ -973,7 +973,7 @@
DEBUG_Xv(PerlIO_printf(Perl_debug_log,
"Pad leavemy: %ld \"%s\", (%ld,%ld)\n",
(long)off, SvPVX(sv),
- (long)U_32(SvNVX(sv)), (long)SvIVX(sv))
+ (long)I_32(SvNVX(sv)), (long)SvIVX(sv))
);
}
}
@@ -1258,7 +1258,7 @@
(int) ix,
PTR2UV(ppad[ix]),
(unsigned long) (ppad[ix] ? SvREFCNT(ppad[ix]) : 0),
- (long)U_32(SvNVX(namesv)),
+ (long)I_32(SvNVX(namesv)),
(long)SvIVX(namesv),
SvPVX(namesv)
);
End of Patch.
