re_op_compile(): temp remove some debugging code
authorDavid Mitchell <davem@iabyn.com>
Thu, 28 Mar 2013 15:08:27 +0000 (15:08 +0000)
committerDavid Mitchell <davem@iabyn.com>
Fri, 12 Apr 2013 10:29:54 +0000 (11:29 +0100)
These four DEBUG_PARSE_r()'s were recently added to a block I code
which I have just been extensively reworking in a separate branch.
Temporarily remove these statements to allow my branch to be rebased;
I'll re-add them (or similar) afterwards.

regcomp.c

index 34a4e9f..868a2ae 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -5338,8 +5338,6 @@ Perl_re_op_compile(pTHX_ SV ** const patternp, int pat_count,
 
        SV **svp;
 
-        DEBUG_PARSE_r(PerlIO_printf(Perl_debug_log,
-            "Compiling List of SVs %d elements%s\n",pat_count, orig_rx_flags & RXf_SPLIT ? " for split" : ""));
        /* apply magic and RE overloading to each arg */
        for (svp = patternp; svp < patternp + pat_count; svp++) {
            SV *rx = *svp;
@@ -5508,9 +5506,6 @@ Perl_re_op_compile(pTHX_ SV ** const patternp, int pat_count,
                    *is_bare_re = TRUE;
                SvREFCNT_inc(re);
                Safefree(pRExC_state->code_blocks);
-                DEBUG_PARSE_r(PerlIO_printf(Perl_debug_log,
-                    "Precompiled pattern%s\n", orig_rx_flags & RXf_SPLIT ? " for split" : ""));
-
                return (REGEXP*)re;
            }
        }
@@ -5523,9 +5518,6 @@ Perl_re_op_compile(pTHX_ SV ** const patternp, int pat_count,
            bool is_code = 0;
            OP *o;
 
-            DEBUG_PARSE_r(PerlIO_printf(Perl_debug_log,
-                "Compiling OP_LIST%s\n", orig_rx_flags & RXf_SPLIT ? " for split" : ""));
-
            pat = newSVpvn("", 0);
            SAVEFREESV(pat);
            if (code_is_utf8)
@@ -5556,8 +5548,6 @@ Perl_re_op_compile(pTHX_ SV ** const patternp, int pat_count,
        }
        else {
            assert(expr->op_type == OP_CONST);
-            DEBUG_PARSE_r(PerlIO_printf(Perl_debug_log,
-                "Compiling OP_CONST%s\n", orig_rx_flags & RXf_SPLIT ? " for split" : ""));
            pat = cSVOPx_sv(expr);
        }
     }