This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c fix 64int warning
authorReini Urban <rurban@x-ray.at>
Sun, 12 Aug 2007 15:38:46 +0000 (17:38 +0200)
committerAbhijit Menon-Sen <ams@wiw.org>
Sun, 12 Aug 2007 14:17:26 +0000 (14:17 +0000)
Message-Id: <46BF0D66.5020605@x-ray.at>

p4raw-id: //depot/perl@31703

regcomp.c

index f06fb68..358ac8e 100644 (file)
--- 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);