Change 32711 by [EMAIL PROTECTED] on 2007/12/22 19:55:17
Remove warning about casting integer to different sized pointer.
Affected files ...
... //depot/perl/pp_hot.c#531 edit
Differences ...
==== //depot/perl/pp_hot.c#531 (text) ====
Index: perl/pp_hot.c
--- perl/pp_hot.c#530~32157~ 2007-10-21 13:19:08.000000000 -0700
+++ perl/pp_hot.c 2007-12-22 11:55:17.000000000 -0800
@@ -1327,7 +1327,7 @@
&& !SvROK(TARG)) /* Cannot trust since INTUIT cannot guess ^ */
goto yup;
}
- if (CALLREGEXEC(rx, (char*)s, (char *)strend, (char*)truebase, minmatch,
TARG, INT2PTR(void*, gpos), r_flags))
+ if (CALLREGEXEC(rx, (char*)s, (char *)strend, (char*)truebase, minmatch,
TARG, INT2PTR(void*, (UV)gpos), r_flags))
{
PL_curpm = pm;
if (dynpm->op_pmflags & PMf_ONCE) {
End of Patch.
