regcomp.c: Remove unused parameter in static function
authorKarl Williamson <public@khwilliamson.com>
Mon, 23 Sep 2013 04:56:20 +0000 (22:56 -0600)
committerKarl Williamson <public@khwilliamson.com>
Tue, 24 Sep 2013 17:36:20 +0000 (11:36 -0600)
This parameter is no longer used, since a few commits ago in this
series.

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

index 3dd62f9..5320a34 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -2054,8 +2054,7 @@ Es        |void   |scan_commit    |NN const RExC_state_t *pRExC_state \
                                |NN SSize_t *minlenp                \
                                |int is_inf
 Es     |void   |populate_ANYOF_from_invlist|NN regnode *node|NN SV** invlist_ptr
-Es     |void   |ssc_anything   |NN const RExC_state_t *pRExC_state \
-                               |NN regnode_ssc *ssc
+Es     |void   |ssc_anything   |NN regnode_ssc *ssc
 EsR    |int    |ssc_is_anything|NN const regnode_ssc *ssc
 Es     |void   |ssc_init       |NN const RExC_state_t *pRExC_state \
                                |NN regnode_ssc *ssc
diff --git a/embed.h b/embed.h
index 5fc9171..9dfd3ea 100644 (file)
--- a/embed.h
+++ b/embed.h
 #define set_ANYOF_arg(a,b,c,d,e,f)     S_set_ANYOF_arg(aTHX_ a,b,c,d,e,f)
 #define ssc_add_range(a,b,c)   S_ssc_add_range(aTHX_ a,b,c)
 #define ssc_and(a,b,c)         S_ssc_and(aTHX_ a,b,c)
-#define ssc_anything(a,b)      S_ssc_anything(aTHX_ a,b)
+#define ssc_anything(a)                S_ssc_anything(aTHX_ a)
 #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)
diff --git a/proto.h b/proto.h
index 33d00ef..e966e54 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -6827,11 +6827,10 @@ STATIC void     S_ssc_and(pTHX_ const RExC_state_t *pRExC_state, regnode_ssc *ssc, c
 #define PERL_ARGS_ASSERT_SSC_AND       \
        assert(pRExC_state); assert(ssc); assert(and_with)
 
-STATIC void    S_ssc_anything(pTHX_ const RExC_state_t *pRExC_state, regnode_ssc *ssc)
-                       __attribute__nonnull__(pTHX_1)
-                       __attribute__nonnull__(pTHX_2);
+STATIC void    S_ssc_anything(pTHX_ regnode_ssc *ssc)
+                       __attribute__nonnull__(pTHX_1);
 #define PERL_ARGS_ASSERT_SSC_ANYTHING  \
-       assert(pRExC_state); assert(ssc)
+       assert(ssc)
 
 PERL_STATIC_INLINE void        S_ssc_clear_locale(pTHX_ regnode_ssc *ssc)
                        __attribute__nonnull__(pTHX_1);
index a77fea1..89ee60e 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -1043,7 +1043,7 @@ S_scan_commit(pTHX_ const RExC_state_t *pRExC_state, scan_data_t *data,
  * list that describes which code points it matches */
 
 STATIC void
-S_ssc_anything(pTHX_ const RExC_state_t *pRExC_state, regnode_ssc *ssc)
+S_ssc_anything(pTHX_ regnode_ssc *ssc)
 {
     /* Set the SSC 'ssc' to match an empty string or any code point */
 
@@ -1109,7 +1109,7 @@ S_ssc_init(pTHX_ const RExC_state_t *pRExC_state, regnode_ssc *ssc)
     Zero(ssc, 1, regnode_ssc);
     OP(ssc) = ANYOF_SYNTHETIC;
     ARG_SET(ssc, ANYOF_NONBITMAP_EMPTY);
-    ssc_anything(pRExC_state, ssc);
+    ssc_anything(ssc);
 
     /* If any portion of the regex is to operate under locale rules,
      * initialization includes it.  The reason this isn't done for all regexes
@@ -3823,7 +3823,7 @@ S_study_chunk(pTHX_ RExC_state_t *pRExC_state, regnode **scanp,
                     }
                     is_inf = is_inf_internal = 1;
                     if (flags & SCF_DO_STCLASS_OR) /* Allow everything */
-                        ssc_anything(pRExC_state, data->start_class);
+                        ssc_anything(data->start_class);
                     flags &= ~SCF_DO_STCLASS;
                }
             } else {
@@ -4400,7 +4400,7 @@ PerlIO_printf(Perl_debug_log, "LHS=%"UVdf" RHS=%"UVdf"\n",
                         ssc_match_all_cp(data->start_class);
                     }
                     else {
-                        ssc_anything(pRExC_state, data->start_class);
+                        ssc_anything(data->start_class);
                     }
                 }
                flags &= ~SCF_DO_STCLASS;
@@ -4837,7 +4837,7 @@ PerlIO_printf(Perl_debug_log, "LHS=%"UVdf" RHS=%"UVdf"\n",
                }
                is_inf = is_inf_internal = 1;
                if (flags & SCF_DO_STCLASS_OR) /* Allow everything */
-                   ssc_anything(pRExC_state, data->start_class);
+                   ssc_anything(data->start_class);
                flags &= ~SCF_DO_STCLASS;
        }
        else if (OP(scan) == GPOS) {