Change 31703 by [EMAIL PROTECTED] on 2007/08/12 14:17:26
Subject: [PATCH] regcomp.c fix 64int warning
From: Reini Urban <[EMAIL PROTECTED]>
Date: Sun, 12 Aug 2007 15:38:46 +0200
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/regcomp.c#605 edit
Differences ...
==== //depot/perl/regcomp.c#605 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c#604~31693~ 2007-08-09 03:10:37.000000000 -0700
+++ perl/regcomp.c 2007-08-12 07:17:26.000000000 -0700
@@ -8882,7 +8882,7 @@
} 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);
End of Patch.
