bisect-runner.pl must expose a prototype for was_lvalue_sub to List::Util

[perl5.git] / regcomp_internal.h

diff --git a/regcomp_internal.h b/regcomp_internal.h
index 3ba4667..c273d2f 100644 (file)
--- a/regcomp_internal.h
+++ b/regcomp_internal.h
@@ -162,15 +162,6 @@ struct RExC_state_t {
     AV          *paren_name_list;       /* idx -> name */
     SV          *mysv1;
     SV          *mysv2;
-
-#define RExC_lastparse  (pRExC_state->lastparse)
-#define RExC_lastnum    (pRExC_state->lastnum)
-#define RExC_paren_name_list    (pRExC_state->paren_name_list)
-#define RExC_study_chunk_recursed_count    (pRExC_state->study_chunk_recursed_count)
-#define RExC_mysv       (pRExC_state->mysv1)
-#define RExC_mysv1      (pRExC_state->mysv1)
-#define RExC_mysv2      (pRExC_state->mysv2)
-
 #endif
     bool        seen_d_op;
     bool        strict;
@@ -181,6 +172,16 @@ struct RExC_state_t {
     bool        sWARN_EXPERIMENTAL__REGEX_SETS;
 };
 
+#ifdef DEBUGGING
+#define RExC_lastparse  (pRExC_state->lastparse)
+#define RExC_lastnum    (pRExC_state->lastnum)
+#define RExC_paren_name_list    (pRExC_state->paren_name_list)
+#define RExC_study_chunk_recursed_count    (pRExC_state->study_chunk_recursed_count)
+#define RExC_mysv       (pRExC_state->mysv1)
+#define RExC_mysv1      (pRExC_state->mysv1)
+#define RExC_mysv2      (pRExC_state->mysv2)
+#endif
+
 #define RExC_flags      (pRExC_state->flags)
 #define RExC_pm_flags   (pRExC_state->pm_flags)
 #define RExC_precomp    (pRExC_state->precomp)
@@ -1193,6 +1194,9 @@ static const scan_data_t zero_scan_data = {
             if (RExC_seen & REG_UNBOUNDED_QUANTIFIER_SEEN)                  \
                 Perl_re_printf( aTHX_ "REG_UNBOUNDED_QUANTIFIER_SEEN ");    \
                                                                             \
+            if (RExC_seen & REG_PESSIMIZE_SEEN)                             \
+                Perl_re_printf( aTHX_ "REG_PESSIMIZE_SEEN ");               \
+                                                                            \
             Perl_re_printf( aTHX_ "\n");                                    \
         });