summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorHugo van der Sanden <hv@crypt.org>2019-08-04 14:31:29 +0100
committerKarl Williamson <khw@cpan.org>2021-05-31 08:05:43 -0600
commit756cf5b8e3f0e9bf26a32dd9207ba46999b12d8f (patch)
treeeb7a806f549a63c4ec191a48ef825c1f00cc7d8f /regcomp.c
parentf72873660d1db9867dbdc98bbfc9e52b63387937 (diff)
downloadperl-756cf5b8e3f0e9bf26a32dd9207ba46999b12d8f.tar.gz
[gh 17847] Include data->pos_delta in #if'd-out diagnostic
Diffstat (limited to 'regcomp.c')
-rw-r--r--regcomp.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/regcomp.c b/regcomp.c
index f5e5f581dc..e692d53eb5 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -5820,9 +5820,10 @@ S_study_chunk(pTHX_ RExC_state_t *pRExC_state, regnode **scanp,
#if 0
Perl_re_printf( aTHX_ "counted=%" UVuf " deltanext=%" UVuf
" OPTIMIZE_INFTY=%" UVuf " minnext=%" UVuf
- " maxcount=%" UVuf " mincount=%" UVuf "\n",
+ " maxcount=%" UVuf " mincount=%" UVuf
+ " data->pos_delta=%" UVuf "\n",
(UV)counted, (UV)deltanext, (UV)OPTIMIZE_INFTY, (UV)minnext, (UV)maxcount,
- (UV)mincount);
+ (UV)mincount, (UV)data->pos_delta);
if (deltanext != OPTIMIZE_INFTY)
Perl_re_printf( aTHX_ "LHS=%" UVuf " RHS=%" UVuf "\n",
(UV)(-counted * deltanext + (minnext + deltanext) * maxcount