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.

1 files changed, 0 insertions, 4 deletions

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;