summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorReini Urban <rurban@x-ray.at>2007-08-12 17:38:46 +0200
committerAbhijit Menon-Sen <ams@wiw.org>2007-08-12 14:17:26 +0000
commitdf44d732c379359119ddcbb4645f9d1a2c1ffec2 (patch)
tree1b330d5c5f379ecd4ccf26cb09b6b5c8adfc3d89 /regcomp.c
parentb57863ed0a63d5542d95689d8dfafc42a3c5f522 (diff)
downloadperl-df44d732c379359119ddcbb4645f9d1a2c1ffec2.tar.gz
regcomp.c fix 64int warning
Message-Id: <46BF0D66.5020605@x-ray.at> p4raw-id: //depot/perl@31703
Diffstat (limited to 'regcomp.c')
-rw-r--r--regcomp.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/regcomp.c b/regcomp.c
index f06fb6848c..358ac8ef07 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);