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

regcomp_study.c: merged value only used under -DDEBUGGING

Browse Source 
For a non-debugging build this would warn with clang 17:

regcomp_study.c:1067:9: warning: variable 'merged' set but not used [-Wunused-but-set-variable]
 1067 |     U32 merged = 0;
      |         ^
This commit is contained in:
Tony Cook 2024-04-17 13:45:45 +10:00
parent c37e28edf7
commit 5b2c91c3c5
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
regcomp_study.c
View File

@ -1064,9 +1064,9 @@ Perl_join_exact(pTHX_ RExC_state_t *pRExC_state, regnode *scan,
regnode *n = regnext(scan);
U32 stringok = 1;
regnode *next = REGNODE_AFTER_varies(scan);
U32 merged = 0;
U32 stopnow = 0;
#ifdef DEBUGGING
U32 merged = 0;
regnode *stop = scan;
DECLARE_AND_GET_RE_DEBUG_FLAGS;
#else
@ -1214,7 +1214,9 @@ Perl_join_exact(pTHX_ RExC_state_t *pRExC_state, regnode *scan,
}
DEBUG_PEEP("merg", n, depth, 0);
#ifdef DEBUGGING
merged++;
#endif
next = REGNODE_AFTER_varies(n);
NEXT_OFF(scan) += NEXT_OFF(n);