Skip to content

Commit cc14778

Browse files
committed
op.c: Combine some adjacent -Dy source lines
The same printf can handle two things.
1 parent ef2c06a commit cc14778

File tree

1 file changed

+11
-10
lines changed

1 file changed

+11
-10
lines changed

op.c

Lines changed: 11 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -6653,8 +6653,8 @@ S_pmtrans(pTHX_ OP *o, OP *expr, OP *repl)
66536653
for (pass2 = 0; pass2 < 2; pass2++) {
66546654
if (pass2) {
66556655

6656-
DEBUG_yv(PerlIO_printf(Perl_debug_log, "After pass1: \n"));
6657-
DEBUG_yv(invmap_dump(t_invlist, r_map));
6656+
DEBUG_yv(PerlIO_printf(Perl_debug_log, "After pass1: \n");
6657+
invmap_dump(t_invlist, r_map));
66586658

66596659
/* In the second pass, we start with a single range */
66606660
t_invlist = _add_range_to_invlist(t_invlist, 0, UV_MAX);
@@ -7211,8 +7211,8 @@ S_pmtrans(pTHX_ OP *o, OP *expr, OP *repl)
72117211

72127212
DEBUG_yv(PerlIO_printf(Perl_debug_log,
72137213
"Before fixing up: len=%d, i=%d\n",
7214-
(int) len, (int) i));
7215-
DEBUG_yv(invmap_dump(t_invlist, r_map));
7214+
(int) len, (int) i);
7215+
invmap_dump(t_invlist, r_map));
72167216

72177217
invlist_extend(t_invlist, len + 2);
72187218
t_array = invlist_array(t_invlist);
@@ -7234,10 +7234,11 @@ S_pmtrans(pTHX_ OP *o, OP *expr, OP *repl)
72347234
r_map[i+2] = TR_UNLISTED;
72357235
}
72367236
DEBUG_yv(PerlIO_printf(Perl_debug_log,
7237-
"After iteration: span=%" UVuf ", t_range_count=%"
7238-
UVuf " r_range_count=%" UVuf "\n",
7239-
span, t_range_count, r_range_count));
7240-
DEBUG_yv(invmap_dump(t_invlist, r_map));
7237+
"After iteration: span=%" UVuf
7238+
", t_range_count=%" UVuf
7239+
" r_range_count=%" UVuf "\n",
7240+
span, t_range_count, r_range_count);
7241+
invmap_dump(t_invlist, r_map));
72417242
} /* End of this chunk needs to be processed */
72427243

72437244
/* Done with this chunk. */
@@ -7266,8 +7267,8 @@ S_pmtrans(pTHX_ OP *o, OP *expr, OP *repl)
72667267

72677268
SvREFCNT_dec(inverted_tstr);
72687269

7269-
DEBUG_y(PerlIO_printf(Perl_debug_log, "After everything: \n"));
7270-
DEBUG_y(invmap_dump(t_invlist, r_map));
7270+
DEBUG_y(PerlIO_printf(Perl_debug_log, "After everything: \n");
7271+
invmap_dump(t_invlist, r_map));
72717272

72727273
/* We now have normalized the input into an inversion map.
72737274
*

0 commit comments

Comments
 (0)