From 9888ef92c94011696dd8a2ff87209296b2baebaa Mon Sep 17 00:00:00 2001 From: Yves Orton Date: Sat, 25 Feb 2023 13:37:21 +0100 Subject: regcomp.c - remove unused debug logic that warns under clang. And by removing it we silence the following build warning: regcomp.c:2285:28: warning: format specifies type 'int' but the argument has type 'I32' (aka 'long') [-Wformat] parno, RExC_parno_to_logical[parno], RExC_parno_to_logical_next[parno]); ^~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./regcomp_internal.h:212:37: note: expanded from macro 'RExC_parno_to_logical' #define RExC_parno_to_logical (pRExC_state->parno_to_logical) ^ regcomp.c:2285:58: warning: format specifies type 'int' but the argument has type 'I32' (aka 'long') [-Wformat] parno, RExC_parno_to_logical[parno], RExC_parno_to_logical_next[parno]); ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./regcomp_internal.h:213:37: note: expanded from macro 'RExC_parno_to_logical_next' #define RExC_parno_to_logical_next (pRExC_state->parno_to_logical_next) ^ 2 warnings generated. --- regcomp.c | 4 ---- 1 file changed, 4 deletions(-) (limited to 'regcomp.c') diff --git a/regcomp.c b/regcomp.c index 8b32d6136c..50f260b7e5 100644 --- a/regcomp.c +++ b/regcomp.c @@ -2279,10 +2279,6 @@ Perl_re_op_compile(pTHX_ SV ** const patternp, int pat_count, RExC_parno_to_logical_next[parno]= RExC_logical_to_parno[logical_parno]; RExC_logical_to_parno[logical_parno] = parno; } - if (0) - for( int parno = 1; parno < RExC_total_parens ; parno++ ) - PerlIO_printf(Perl_debug_log,"%d -> %d -> %d\n", - parno, RExC_parno_to_logical[parno], RExC_parno_to_logical_next[parno]); RExC_rx->logical_to_parno = RExC_logical_to_parno; RExC_rx->parno_to_logical = RExC_parno_to_logical; RExC_rx->parno_to_logical_next = RExC_parno_to_logical_next; -- cgit v1.2.1