Remove warning about casting integer to different sized pointer.

p4raw-id: //depot/perl@32711

diff --git a/pp_hot.c b/pp_hot.c
index 57fa328..a2f9785 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1327,7 +1327,7 @@ play_it_again:
             && !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) {