mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 08:38:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

Neater intent of aux vector handling when dumping fields of OP_METHSTART

Browse Source
This commit is contained in:
Paul "LeoNerd" Evans 2024-09-06 19:04:52 +01:00 committed by Paul Evans
parent 7763c06d7b
commit 7d1bcef647
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
dump.c
View File

@ -1479,9 +1479,10 @@ S_do_op_dump_bar(pTHX_ I32 level, UV bar, PerlIO *file, const OP *o)
break;
S_opdump_indent(aTHX_ o, level, bar, file, "FIELDS: (%" UVuf ")\n", n_fields);
for(Size_t i = 0; i < n_fields; i++) {
UNOP_AUX_item *fieldaux = aux + 2;
for(Size_t i = 0; i < n_fields; i++, fieldaux += 2) {
S_opdump_indent(aTHX_ o, level, bar, file, " [%zd] PADIX = %" UVuf " FIELDIX = % " UVuf "\n",
i, aux[2 + i*2 + 0].uv, aux[2 + i*2 + 1].uv);
i, fieldaux[0].uv, fieldaux[1].uv);
}
break;
}