summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2016-03-28 09:59:10 +0100
committerDavid Mitchell <davem@iabyn.com>2016-03-28 15:30:38 +0100
commitdaeb874b6b0d9720a5b3cffd11054bd7d7678888 (patch)
tree5973224889dfe12a3ec352474293ee52d4dfc921 /regexec.c
parent9d9905599cad5eeb33b2a64c023b97005694fbcd (diff)
downloadperl-daeb874b6b0d9720a5b3cffd11054bd7d7678888.tar.gz
re_exec_indentf,re_indentf: silence warnings
Pass the right types to printf. For re_exec_indentf(), really the type of the depth arg should be changed so that it and the depth var are consistent throughout regexec.c, but that's probably something for post-5.24.
Diffstat (limited to 'regexec.c')
-rw-r--r--regexec.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/regexec.c b/regexec.c
index f2e0164581..29429b2f12 100644
--- a/regexec.c
+++ b/regexec.c
@@ -3640,7 +3640,7 @@ S_regtry(pTHX_ regmatch_info *reginfo, char **startposp)
messages are inline with the regop output that created them.
*/
#define REPORT_CODE_OFF 29
-#define INDENT_CHARS(depth) ((depth) % 20)
+#define INDENT_CHARS(depth) ((int)(depth) % 20)
#ifdef DEBUGGING
int
Perl_re_exec_indentf(pTHX_ const char *fmt, U32 depth, ...)
@@ -3650,7 +3650,7 @@ Perl_re_exec_indentf(pTHX_ const char *fmt, U32 depth, ...)
PerlIO *f= Perl_debug_log;
PERL_ARGS_ASSERT_RE_EXEC_INDENTF;
va_start(ap, depth);
- PerlIO_printf(f, "%*s|%4d| %*s", REPORT_CODE_OFF, "", depth, INDENT_CHARS(depth), "" );
+ PerlIO_printf(f, "%*s|%4"UVuf"| %*s", REPORT_CODE_OFF, "", (UV)depth, INDENT_CHARS(depth), "" );
result = PerlIO_vprintf(f, fmt, ap);
va_end(ap);
return result;