diff options
| author | Robin Barker <RMBarker@cpan.org> | 2001-05-04 19:09:13 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-04 16:47:45 +0000 |
| commit | 392fbf5d105b6d2d0f56e66367fa2ffc7ec09143 (patch) | |
| tree | b09ee291e517ef41e3de98392a88884a2665abd0 /regcomp.c | |
| parent | 841c0db2dbb9f4386c164614ebe77ba0790c6573 (diff) | |
| download | perl-392fbf5d105b6d2d0f56e66367fa2ffc7ec09143.tar.gz | |
-Wformat error from ext/re/re_comp.c
Message-Id: <200105041709.SAA14835@tempest.npl.co.uk>
p4raw-id: //depot/perl@9991
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -1715,9 +1715,9 @@ Perl_pregcomp(pTHX_ char *exp, char *xend, PMOP *pm) r->offsets[0] = RExC_size; } DEBUG_r(PerlIO_printf(Perl_debug_log, - "%s %u bytes for offset annotations.\n", + "%s %"UVuf" bytes for offset annotations.\n", r->offsets ? "Got" : "Couldn't get", - (2*RExC_size+1) * sizeof(U32))); + (UV)((2*RExC_size+1) * sizeof(U32)))); RExC_rx = r; @@ -4290,11 +4290,11 @@ Perl_regdump(pTHX_ regexp *r) if (r->offsets) { U32 i; U32 len = r->offsets[0]; - PerlIO_printf(Perl_debug_log, "Offsets: [%u]\n\t", r->offsets[0]); + PerlIO_printf(Perl_debug_log, "Offsets: [%"UVuf"]\n\t", (UV)r->offsets[0]); for (i = 1; i <= len; i++) - PerlIO_printf(Perl_debug_log, "%u[%u] ", - r->offsets[i*2-1], - r->offsets[i*2]); + PerlIO_printf(Perl_debug_log, "%"UVuf"[%"UVuf"] ", + (UV)r->offsets[i*2-1], + (UV)r->offsets[i*2]); PerlIO_printf(Perl_debug_log, "\n"); } #endif /* DEBUGGING */ |