This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Remove no longer used function
authorKarl Williamson <public@khwilliamson.com>
Wed, 19 Feb 2014 05:07:56 +0000 (22:07 -0700)
committerKarl Williamson <public@khwilliamson.com>
Wed, 19 Feb 2014 15:33:00 +0000 (08:33 -0700)
I don't think this function will need to be used again.

embed.fnc
embed.h
proto.h
regcomp.c

index eae081e..d0943e8 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -2097,7 +2097,6 @@ EsR       |int    |ssc_is_cp_posixl_init|NN const RExC_state_t *pRExC_state \
 Es     |void   |ssc_and        |NN const RExC_state_t *pRExC_state \
                                |NN regnode_ssc *ssc                \
                                |NN const regnode_charclass *and_with
-Esn    |void   |ssc_flags_and  |NN regnode_ssc *ssc|const U8 and_with
 Es     |void   |ssc_or         |NN const RExC_state_t *pRExC_state \
                                |NN regnode_ssc *ssc \
                                |NN const regnode_charclass *or_with
diff --git a/embed.h b/embed.h
index 65b9c1c..2f8aca5 100644 (file)
--- a/embed.h
+++ b/embed.h
 #define ssc_clear_locale(a)    S_ssc_clear_locale(aTHX_ a)
 #define ssc_cp_and(a,b)                S_ssc_cp_and(aTHX_ a,b)
 #define ssc_finalize(a,b)      S_ssc_finalize(aTHX_ a,b)
-#define ssc_flags_and          S_ssc_flags_and
 #define ssc_init(a,b)          S_ssc_init(aTHX_ a,b)
 #define ssc_intersection(a,b,c)        S_ssc_intersection(aTHX_ a,b,c)
 #define ssc_is_anything(a)     S_ssc_is_anything(aTHX_ a)
diff --git a/proto.h b/proto.h
index f77debe..4832535 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -6915,11 +6915,6 @@ STATIC void      S_ssc_finalize(pTHX_ RExC_state_t *pRExC_state, regnode_ssc *ssc)
 #define PERL_ARGS_ASSERT_SSC_FINALIZE  \
        assert(pRExC_state); assert(ssc)
 
-STATIC void    S_ssc_flags_and(regnode_ssc *ssc, const U8 and_with)
-                       __attribute__nonnull__(1);
-#define PERL_ARGS_ASSERT_SSC_FLAGS_AND \
-       assert(ssc)
-
 STATIC void    S_ssc_init(pTHX_ const RExC_state_t *pRExC_state, regnode_ssc *ssc)
                        __attribute__nonnull__(pTHX_1)
                        __attribute__nonnull__(pTHX_2);
index 2a9f7ee..803a79b 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -1109,23 +1109,6 @@ S_get_ANYOF_cp_list_for_ssc(pTHX_ const RExC_state_t *pRExC_state,
 #define ssc_add_cp(ssc, cp)   ssc_add_range((ssc), (cp), (cp))
 #define ssc_match_all_cp(ssc) ssc_add_range(ssc, 0, UV_MAX)
 
-STATIC void
-S_ssc_flags_and(regnode_ssc *ssc, const U8 and_with)
-{
-    /* Take the flags 'and_with' and accumulate them anded into the flags for
-     * the SSC 'ssc'.  The non-SSC related flags in 'and_with' are ignored.
-     * The flags 'and_with' should not come from another SSC (otherwise the
-     * EMPTY_STRING flag won't work) */
-
-    const U8 ssc_only_flags = ANYOF_FLAGS(ssc) & ~ANYOF_COMMON_FLAGS;
-
-    PERL_ARGS_ASSERT_SSC_FLAGS_AND;
-
-    /* Use just the SSC-related flags from 'and_with' */
-    ANYOF_FLAGS(ssc) &= (and_with & ANYOF_COMMON_FLAGS);
-    ANYOF_FLAGS(ssc) |= ssc_only_flags;
-}
-
 /* 'AND' a given class with another one.  Can create false positives.  'ssc'
  * should not be inverted.  'and_with->flags & ANYOF_POSIXL' should be 0 if
  * 'and_with' is a regnode_charclass instead of a regnode_ssc. */