Change 20576 by [EMAIL PROTECTED] on 2003/08/09 07:25:52
Retract #20525 since it was due to broken INT32_MIN in
Cygwin 1.5's stdint.h.
Affected files ...
... //depot/maint-5.8/perl/pad.c#12 edit
Differences ...
==== //depot/maint-5.8/perl/pad.c#12 (text) ====
Index: perl/pad.c
--- perl/pad.c#11~20528~ Wed Aug 6 08:03:43 2003
+++ perl/pad.c Sat Aug 9 00:25:52 2003
@@ -575,11 +575,11 @@
continue;
}
else {
- if ( seq > U_32(SvNVX(sv)) /* min */
+ if ( seq > (U32)I_32(SvNVX(sv)) /* min */
&& seq <= (U32)SvIVX(sv)) /* max */
return off;
else if ((SvFLAGS(sv) & SVpad_OUR)
- && U_32(SvNVX(sv)) == PAD_MAX) /* min */
+ && (U32)I_32(SvNVX(sv)) == PAD_MAX) /* min */
{
/* look for an our that's being introduced; this allows
* our $foo = 0 unless defined $foo;
@@ -667,8 +667,8 @@
continue;
}
else {
- if ( seq > U_32(SvNVX(sv)) /* min */
- && seq <= (U32)SvIVX(sv) /* max */
+ if ( seq > (U32)I_32(SvNVX(sv)) /* min */
+ && seq <= (U32)SvIVX(sv) /* max */
&& !(newoff && !depth) /* ignore inactive when cloning */
)
goto found;
@@ -708,7 +708,7 @@
" matched: offset %ld"
" (%lu,%lu), sv=0x%"UVxf"\n",
(long)off,
- (unsigned long)U_32(SvNVX(sv)),
+ (unsigned long)I_32(SvNVX(sv)),
(unsigned long)SvIVX(sv),
PTR2UV(oldsv)
)
@@ -908,7 +908,7 @@
DEBUG_Xv(PerlIO_printf(Perl_debug_log,
"Pad intromy: %ld \"%s\", (%lu,%lu)\n",
(long)i, SvPVX(sv),
- (unsigned long)U_32(SvNVX(sv)), (unsigned long)SvIVX(sv))
+ (unsigned long)I_32(SvNVX(sv)), (unsigned long)SvIVX(sv))
);
}
}
@@ -956,7 +956,7 @@
DEBUG_Xv(PerlIO_printf(Perl_debug_log,
"Pad leavemy: %ld \"%s\", (%lu,%lu)\n",
(long)off, SvPVX(sv),
- (unsigned long)U_32(SvNVX(sv)), (unsigned long)SvIVX(sv))
+ (unsigned long)I_32(SvNVX(sv)), (unsigned long)SvIVX(sv))
);
}
}
@@ -1210,7 +1210,7 @@
(int) ix,
PTR2UV(ppad[ix]),
(unsigned long) (ppad[ix] ? SvREFCNT(ppad[ix]) : 0),
- (unsigned long)U_32(SvNVX(namesv)),
+ (unsigned long)I_32(SvNVX(namesv)),
(unsigned long)SvIVX(namesv),
SvPVX(namesv)
);
End of Patch.
