Change 11971 by sky@sky-titanic on 2001/09/10 11:21:50
Silence another ITHREAD 64bit INT/32bit PTR warning.
Affected files ...
... //depot/perl/cop.h#60 edit
Differences ...
==== //depot/perl/cop.h#60 (text) ====
Index: perl/cop.h
--- perl/cop.h.~1~ Mon Sep 10 05:30:06 2001
+++ perl/cop.h Mon Sep 10 05:30:06 2001
@@ -202,7 +202,7 @@
# define CxITERVAR(c) \
((c)->blk_loop.iterdata \
? (CxPADLOOP(cx) \
- ? &((c)->blk_loop.oldcurpad)[(PADOFFSET)(c)->blk_loop.iterdata] \
+ ? &((c)->blk_loop.oldcurpad)[INT2PTR(PADOFFSET, (c)->blk_loop.iterdata)] \
: &GvSV((GV*)(c)->blk_loop.iterdata)) \
: (SV**)NULL)
# define CX_ITERDATA_SET(cx,idata) \
End of Patch.
