diff options
| author | Robin Barker <Robin.Barker@npl.co.uk> | 2009-09-22 16:23:28 +0100 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2009-09-22 17:50:57 +0200 |
| commit | ed549f2e7fe319d460835b5ecf2c0b5abead3d12 (patch) | |
| tree | e87b1baf354c2eac79286c1e858dfcf7cae42900 /regexec.c | |
| parent | 50b1421987f46bcd844d19a6aac30e5edc340ca8 (diff) | |
| download | perl-ed549f2e7fe319d460835b5ecf2c0b5abead3d12.tar.gz | |
fix format warnings from regexec.c
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1824,21 +1824,21 @@ Perl_regexec_flags(pTHX_ REGEXP * const rx, char *stringarg, register char *stre if (flags & REXEC_IGNOREPOS){ /* Means: check only at start */ reginfo.ganch = startpos + prog->gofs; DEBUG_GPOS_r(PerlIO_printf(Perl_debug_log, - "GPOS IGNOREPOS: reginfo.ganch = startpos + %"UVxf"\n",prog->gofs)); + "GPOS IGNOREPOS: reginfo.ganch = startpos + %"UVxf"\n",(UV)prog->gofs)); } else if (sv && SvTYPE(sv) >= SVt_PVMG && SvMAGIC(sv) && (mg = mg_find(sv, PERL_MAGIC_regex_global)) && mg->mg_len >= 0) { reginfo.ganch = strbeg + mg->mg_len; /* Defined pos() */ DEBUG_GPOS_r(PerlIO_printf(Perl_debug_log, - "GPOS MAGIC: reginfo.ganch = strbeg + %"IVdf"\n",mg->mg_len)); + "GPOS MAGIC: reginfo.ganch = strbeg + %"IVdf"\n",(IV)mg->mg_len)); if (prog->extflags & RXf_ANCH_GPOS) { if (s > reginfo.ganch) goto phooey; s = reginfo.ganch - prog->gofs; DEBUG_GPOS_r(PerlIO_printf(Perl_debug_log, - "GPOS ANCH_GPOS: s = ganch - %"UVxf"\n",prog->gofs)); + "GPOS ANCH_GPOS: s = ganch - %"UVxf"\n",(UV)prog->gofs)); if (s < strbeg) goto phooey; } |