summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDagfinn Ilmari Mannsåker <ilmari@ilmari.org>2021-10-19 16:51:05 +0100
committerDagfinn Ilmari Mannsåker <ilmari@ilmari.org>2021-10-20 16:30:14 +0100
commit17ff3452b77c5102c4c915271e2bdedcab713eec (patch)
treed78bac67c480009794b3ea9f772f5c1faa83ec26
parentad41dd2f0916fbc8be46d44ddf90253a19131020 (diff)
downloadperl-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.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/op.c b/op.c
index db10de0216..bf10dd3bfc 100644
--- a/op.c
+++ b/op.c
@@ -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);
}