From: Reini Urban <rurban@x-ray.at>
Date: Sun, 12 Aug 2007 15:38:46 +0000 (+0200)
Subject: regcomp.c fix 64int warning
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=df44d732c379359119ddcbb4645f9d1a2c1ffec2;p=p5sagit%2Fp5-mst-13.2.git

regcomp.c fix 64int warning
Message-Id: <46BF0D66.5020605@x-ray.at>

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

diff --git a/regcomp.c b/regcomp.c
index f06fb68..358ac8e 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -8882,7 +8882,7 @@ Perl_regprop(pTHX_ const regexp *prog, SV *sv, const regnode *o)
     } else if (k == LOGICAL)
 	Perl_sv_catpvf(aTHX_ sv, "[%d]", o->flags);	/* 2: embedded, otherwise 1 */
     else if (k == FOLDCHAR)
-	Perl_sv_catpvf(aTHX_ sv, "[0x%"UVXf"]",ARG(o) );	
+	Perl_sv_catpvf(aTHX_ sv, "[0x%"UVXf"]", PTR2UV(ARG(o)) );
     else if (k == ANYOF) {
 	int i, rangestart = -1;
 	const U8 flags = ANYOF_FLAGS(o);