PATCH re 32711

From: "Robin Barker" <Robin.Barker@npl.co.uk>
Message-ID: <46A0F33545E63740BC7563DE59CA9C6D0939A4@exchsvr2.npl.ad.local>

"IMO patch 32711 is better implemented using (the existing) NUM2PTR macro, as below/attached."

p4raw-id: //depot/perl@32720

diff --git a/pp_hot.c b/pp_hot.c
index a2f9785..367f03e 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1327,7 +1327,8 @@ play_it_again:
             && !SvROK(TARG))   /* Cannot trust since INTUIT cannot guess ^ */
            goto yup;
     }
             && !SvROK(TARG))   /* Cannot trust since INTUIT cannot guess ^ */
            goto yup;
     }

-    if (CALLREGEXEC(rx, (char*)s, (char *)strend, (char*)truebase, minmatch, TARG, INT2PTR(void*, (UV)gpos), r_flags))
+    if (CALLREGEXEC(rx, (char*)s, (char *)strend, (char*)truebase,
+                    minmatch, TARG, NUM2PTR(void*, gpos), r_flags))

     {
        PL_curpm = pm;
        if (dynpm->op_pmflags & PMf_ONCE) {
     {
        PL_curpm = pm;
        if (dynpm->op_pmflags & PMf_ONCE) {