diff options
| author | Yves Orton <demerphq@gmail.com> | 2023-02-25 13:34:44 +0100 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2023-02-26 00:31:44 +0800 |
| commit | f7783cf76f7b60437f666fa1b5007237e48c65ad (patch) | |
| tree | 451a512af18a7fb6becba235ffd43b92068e2516 /dump.c | |
| parent | f1adf80b568f0077689a3dcfb735259cb3100253 (diff) | |
| download | perl-f7783cf76f7b60437f666fa1b5007237e48c65ad.tar.gz | |
dump.c - cast sprintf args properly to silence build warning under clang
Silence the following warnings:
dump.c:2688:25: warning: format specifies type 'long long'
but the argument has type 'ssize_t' (aka 'int') [-Wformat]
r->offs[n].start, r->offs[n].end,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
./embed.h:831:72: note: expanded from macro 'sv_catpvf'
# define sv_catpvf(a,...) Perl_sv_catpvf(aTHX_ a,__VA_ARGS__)
^~~~~~~~~~~
dump.c:2688:43: warning: format specifies type 'long long'
but the argument has type 'ssize_t' (aka 'int') [-Wformat]
r->offs[n].start, r->offs[n].end,
~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~
./embed.h:831:72: note: expanded from macro 'sv_catpvf'
# define sv_catpvf(a,...) Perl_sv_catpvf(aTHX_ a,__VA_ARGS__)
^~~~~~~~~~~
2 warnings generated.
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2685,7 +2685,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo * show one more than we have nparens. */ for(n = 0; n <= r->nparens; n++) { sv_catpvf(d,"%" IVdf ":%" IVdf "%s", - r->offs[n].start, r->offs[n].end, + (IV)(r->offs[n].start), (IV)(r->offs[n].end), n+1 > r->nparens ? " ]\n" : ", "); } Perl_dump_indent(aTHX_ level, file, " %" SVf, d); |