(2nd version) small tweaks based on smoke signs
Jarkko Hietaniemi [Sat, 11 Nov 2006 06:18:56 +0000 (08:18 +0200)]
Message-Id: <200611110418.kAB4Ium5350338@kosh.hut.fi>

p4raw-id: //depot/perl@29246

hv.c
regcomp.c
regexec.c

diff --git a/hv.c b/hv.c
index e482d56..fbfdce3 100644 (file)
--- a/hv.c
+++ b/hv.c
@@ -2670,7 +2670,7 @@ Perl_hv_placeholders_set(pTHX_ HV *hv, I32 ph)
     /* else we don't need to add magic to record 0 placeholders.  */
 }
 
-SV *
+STATIC SV *
 S_refcounted_he_value(pTHX_ const struct refcounted_he *he)
 {
     dVAR;
index e8b76fa..46851dd 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -501,7 +501,7 @@ static const scan_data_t zero_scan_data =
 #define Set_Node_Offset_To_R(node,byte) STMT_START {                   \
     if (! SIZE_ONLY) {                                                 \
        MJD_OFFSET_DEBUG(("** (%d) offset of node %d is %d.\n",         \
-                   __LINE__, (node), (int)(byte)));                    \
+                   __LINE__, (int)(node), (int)(byte)));               \
        if((node) < 0) {                                                \
            Perl_croak(aTHX_ "value of node is %d in Offset macro", (int)(node)); \
        } else {                                                        \
index 515ee55..6643cdf 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -4558,8 +4558,8 @@ NULL
                st->u.eval.prev_eval = cur_eval;
                cur_eval = cur_eval->u.eval.prev_eval;
                DEBUG_EXECUTE_r(
-                   PerlIO_printf(Perl_debug_log, "%*s  EVAL trying tail ... %x\n",
-                                     REPORT_CODE_OFF+depth*2, "",(int)cur_eval););
+                   PerlIO_printf(Perl_debug_log, "%*s  EVAL trying tail ... %"UVxf"\n",
+                                     REPORT_CODE_OFF+depth*2, "",PTR2UV(cur_eval)););
                PUSH_YES_STATE_GOTO(EVAL_AB,
                        st->u.eval.prev_eval->u.eval.B); /* match B */
            }