diff options
author | AnFunctionArray <sasho648@gmail.com> | 2022-11-04 17:52:56 +0200 |
---|---|---|
committer | James E Keenan <jkeenan@cpan.org> | 2022-11-04 19:49:48 +0000 |
commit | 4cacf47cb8a44761f2f8360cb04a2a728b4ff9c8 (patch) | |
tree | 0cacdfbdaec3e9e6eb482c7944f48b7ac77fab60 | |
parent | 6794399818608ae0dc08fa8d114a949907b51ef4 (diff) | |
download | perl-4cacf47cb8a44761f2f8360cb04a2a728b4ff9c8.tar.gz |
Moved unused variable into debug scope
Moved declaration of object p.
For: Issue: https://github.com/Perl/perl5/issues/20485
p.r.: https://github.com/Perl/perl5/pull/20486
-rw-r--r-- | .mailmap | 1 | ||||
-rw-r--r-- | regexec.c | 7 |
2 files changed, 5 insertions, 3 deletions
@@ -88,6 +88,7 @@ Alexander Bluhm <alexander_bluhm@genua.de> alexander_bluhm@genua.de <alexander_b Alexander D'Archangel <darksuji@gmail.com> darksuji <darksuji@gmail.com> Alexander Gernler <alexander_gernler@genua.de> Alexander_Gernler@genua.de <alexander_gernler@genua.de> Alexander Gough <alex-p5p@earth.li> <alex@rcon.rog> +Alexander Nikolov <sasho648@gmail.com> AnFunctionArray <sasho648@gmail.com> Alexandr Ciornii <alexchorny@gmail.com> Alexandr Ciornii <alexchorny\100gmail.com> Alexandr Savca <alexandr.savca89@gmail.com> chinarulezzz <alexandr.savca89@gmail.com> Alexey Borzenkov <snaury@gmail.com> N/K <snaury@gmail.com> @@ -234,7 +234,7 @@ S_regcppush(pTHX_ const regexp *rex, I32 parenfloor, U32 maxopenparen _pDEPTH) const int paren_elems_to_push = (paren_bytes_to_push + sizeof(*PL_savestack) - 1) / sizeof(*PL_savestack); const UV total_elems = paren_elems_to_push + REGCP_OTHER_ELEMS; const UV elems_shifted = total_elems << SAVE_TIGHT_SHIFT; - I32 p; + DECLARE_AND_GET_RE_DEBUG_FLAGS; PERL_ARGS_ASSERT_REGCPPUSH; @@ -267,7 +267,8 @@ S_regcppush(pTHX_ const regexp *rex, I32 parenfloor, U32 maxopenparen _pDEPTH) memcpy(&PL_savestack[PL_savestack_ix], rex->offs + parenfloor + 1, paren_bytes_to_push); PL_savestack_ix += paren_elems_to_push; - DEBUG_BUFFERS_r( + DEBUG_BUFFERS_r({ + I32 p; for (p = parenfloor + 1; p <= (I32)maxopenparen; p++) { Perl_re_exec_indentf(aTHX_ " \\%" UVuf ": %" IVdf "(%" IVdf ")..%" IVdf "\n", @@ -278,7 +279,7 @@ S_regcppush(pTHX_ const regexp *rex, I32 parenfloor, U32 maxopenparen _pDEPTH) (IV)rex->offs[p].end ); } - ); + }); /* REGCP_OTHER_ELEMS are pushed in any case, parentheses or no. */ SSPUSHINT(maxopenparen); |