Neater intent of aux vector handling when dumping fields of OP_METHSTART

Perl · Sep 6, 2024 · 7d1bcef · 7d1bcef
1 parent 7763c06
commit 7d1bcef
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/dump.c b/dump.c
@@ -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;
     }