This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove warning about casting integer to different sized pointer.
authorNicholas Clark <nick@ccl4.org>
Sat, 22 Dec 2007 19:55:17 +0000 (19:55 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 22 Dec 2007 19:55:17 +0000 (19:55 +0000)
p4raw-id: //depot/perl@32711

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) {