diff options
author | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2021-10-19 16:51:05 +0100 |
---|---|---|
committer | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2021-10-20 16:30:14 +0100 |
commit | 17ff3452b77c5102c4c915271e2bdedcab713eec (patch) | |
tree | d78bac67c480009794b3ea9f772f5c1faa83ec26 | |
parent | ad41dd2f0916fbc8be46d44ddf90253a19131020 (diff) | |
download | perl-17ff3452b77c5102c4c915271e2bdedcab713eec.tar.gz |
op.c: use %zd to format PADOFFSET values
PADOFFSET is SSize_t, so %lu is wrong even if long and SSize_t are the
same size.
-rw-r--r-- | op.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -10259,13 +10259,13 @@ Perl_newFOROP(pTHX_ I32 flags, OP *sv, OP *expr, OP *block, OP *cont) padsv = (UNOP *) OpSIBLING(first_padsv); do { if (!padsv || padsv->op_type != OP_PADSV) { - Perl_croak(aTHX_ "panic: newFORLOOP, found %s at %lu, expecting padsv", + Perl_croak(aTHX_ "panic: newFORLOOP, found %s at %zd, expecting padsv", padsv ? PL_op_desc[padsv->op_type] : "NULL", how_many_more); } ++how_many_more; if (padsv->op_targ != padoff + how_many_more) { - Perl_croak(aTHX_ "panic: newFORLOOP, padsv at %lu targ is %lu, not %lu", + Perl_croak(aTHX_ "panic: newFORLOOP, padsv at %zd targ is %zd, not %zd", how_many_more, padsv->op_targ, padoff + how_many_more); } |