This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: inline trivial static function
authorKarl Williamson <public@khwilliamson.com>
Wed, 1 Aug 2012 23:04:13 +0000 (17:04 -0600)
committerKarl Williamson <public@khwilliamson.com>
Thu, 2 Aug 2012 15:28:40 +0000 (09:28 -0600)
embed.fnc
proto.h
regcomp.c

index 8a6cdad..b65e41c 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1051,7 +1051,7 @@ Ap        |SV*    |regclass_swash |NULLOK const regexp *prog \
 EMs    |void   |add_alternate  |NN AV** alternate_ptr|NN U8* string|STRLEN len
 EMsR   |SV*    |_new_invlist_C_array|NN UV* list
 : Not used currently: EXMs     |bool   |_invlistEQ     |NN SV* const a|NN SV* const b|bool complement_b
-EMsR   |bool   |_invlist_contains_cp|NN SV* const invlist|const UV cp
+EMiR   |bool   |_invlist_contains_cp|NN SV* const invlist|const UV cp
 #endif
 Ap     |I32    |pregexec       |NN REGEXP * const prog|NN char* stringarg \
                                |NN char* strend|NN char* strbeg|I32 minend \
diff --git a/proto.h b/proto.h
index ef4f8c1..55dc9ae 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -6359,7 +6359,7 @@ PERL_STATIC_INLINE UV*    S__invlist_array_init(pTHX_ SV* const invlist, const bool
 #define PERL_ARGS_ASSERT__INVLIST_ARRAY_INIT   \
        assert(invlist)
 
-STATIC bool    S__invlist_contains_cp(pTHX_ SV* const invlist, const UV cp)
+PERL_STATIC_INLINE bool        S__invlist_contains_cp(pTHX_ SV* const invlist, const UV cp)
                        __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
 #define PERL_ARGS_ASSERT__INVLIST_CONTAINS_CP  \
index 17e7579..eef0869 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -7946,7 +7946,7 @@ Perl__add_range_to_invlist(pTHX_ SV* invlist, const UV start, const UV end)
 
 #endif
 
-STATIC bool
+PERL_STATIC_INLINE bool
 S__invlist_contains_cp(pTHX_ SV* const invlist, const UV cp)
 {
     /* Does <invlist> contain code point <cp> as part of the set? */