From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 11 Nov 2006 06:18:56 +0000 (+0200)
Subject: (2nd version) small tweaks based on smoke signs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2a49f0f5dac6a94dc40827858cb5adb7ba8941cd;p=p5sagit%2Fp5-mst-13.2.git

(2nd version) small tweaks based on smoke signs
Message-Id: <200611110418.kAB4Ium5350338@kosh.hut.fi>

p4raw-id: //depot/perl@29246
---

diff --git a/hv.c b/hv.c
index e482d56..fbfdce3 100644
--- 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;
diff --git a/regcomp.c b/regcomp.c
index e8b76fa..46851dd 100644
--- 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 {							\
diff --git a/regexec.c b/regexec.c
index 515ee55..6643cdf 100644
--- 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 */
 	    }