Tighten uses of regex synthetic start class

[perl5.git] / proto.h

diff --git a/proto.h b/proto.h
index 2f9e62f..4f36b27 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -6872,6 +6872,12 @@ PERL_STATIC_INLINE void  S_invlist_trim(SV* const invlist)
 #define PERL_ARGS_ASSERT_INVLIST_TRIM  \
        assert(invlist)
 
+STATIC bool    S_is_ssc_worth_it(const RExC_state_t * pRExC_state, const regnode_ssc * ssc)
+                       __attribute__nonnull__(1)
+                       __attribute__nonnull__(2);
+#define PERL_ARGS_ASSERT_IS_SSC_WORTH_IT       \
+       assert(pRExC_state); assert(ssc)
+
 STATIC U32     S_join_exact(pTHX_ RExC_state_t *pRExC_state, regnode *scan, UV *min_subtract, bool *unfolded_multi_char, U32 flags, regnode *val, U32 depth)
                        __attribute__nonnull__(pTHX_1)
                        __attribute__nonnull__(pTHX_2)
@@ -6918,6 +6924,11 @@ STATIC regnode*  S_reg(pTHX_ RExC_state_t *pRExC_state, I32 paren, I32 *flagp, U3
 #define PERL_ARGS_ASSERT_REG   \
        assert(pRExC_state); assert(flagp)
 
+STATIC regnode*        S_reg2Lanode(pTHX_ RExC_state_t *pRExC_state, const U8 op, const U32 arg1, const I32 arg2)
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_REG2LANODE    \
+       assert(pRExC_state)
+
 STATIC regnode*        S_reg_node(pTHX_ RExC_state_t *pRExC_state, U8 op)
                        __attribute__nonnull__(pTHX_1);
 #define PERL_ARGS_ASSERT_REG_NODE      \