diff options
author | David Mitchell <davem@iabyn.com> | 2016-03-28 09:59:10 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2016-03-28 15:30:38 +0100 |
commit | daeb874b6b0d9720a5b3cffd11054bd7d7678888 (patch) | |
tree | 5973224889dfe12a3ec352474293ee52d4dfc921 /regexec.c | |
parent | 9d9905599cad5eeb33b2a64c023b97005694fbcd (diff) | |
download | perl-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.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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; |