Request that regcomp.c:S_regpposixcc be inlined
authorFather Chrysostomos <sprout@cpan.org>
Mon, 19 Nov 2012 01:45:09 +0000 (17:45 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 19 Nov 2012 04:17:18 +0000 (20:17 -0800)
It is only called from one spot.

embed.fnc
proto.h
regcomp.c

index 3b92083..9aec97a 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1981,7 +1981,7 @@ Es        |I32    |study_chunk    |NN struct RExC_state_t *pRExC_state \
 EsRn   |U32    |add_data       |NN struct RExC_state_t *pRExC_state|U32 n \
                                |NN const char *s
 rs     |void   |re_croak2      |NN const char* pat1|NN const char* pat2|...
-E    |I32    |regpposixcc    |NN struct RExC_state_t *pRExC_state \
+Eis    |I32    |regpposixcc    |NN struct RExC_state_t *pRExC_state \
                                |I32 value|NULLOK SV *free_me
 Es     |I32    |make_trie      |NN struct RExC_state_t *pRExC_state \
                                |NN regnode *startbranch|NN regnode *first \
diff --git a/proto.h b/proto.h
index 7a60c70..d574a6d 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -6590,7 +6590,7 @@ STATIC regnode*   S_regpiece(pTHX_ struct RExC_state_t *pRExC_state, I32 *flagp, U
 #define PERL_ARGS_ASSERT_REGPIECE      \
        assert(pRExC_state); assert(flagp)
 
-STATIC I32     S_regpposixcc(pTHX_ struct RExC_state_t *pRExC_state, I32 value, SV *free_me)
+PERL_STATIC_INLINE I32 S_regpposixcc(pTHX_ struct RExC_state_t *pRExC_state, I32 value, SV *free_me)
                        __attribute__nonnull__(pTHX_1);
 #define PERL_ARGS_ASSERT_REGPPOSIXCC   \
        assert(pRExC_state)
index b0f917f..0c62cb0 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -11162,7 +11162,7 @@ S_regwhite( RExC_state_t *pRExC_state, char *p )
 #define POSIXCC_NOTYET(c) ((c) == '=' || (c) == '.')
 #define POSIXCC(c) (POSIXCC_DONE(c) || POSIXCC_NOTYET(c))
 
-STATIC I32
+PERL_STATIC_INLINE I32
 S_regpposixcc(pTHX_ RExC_state_t *pRExC_state, I32 value, SV *free_me)
 {
     dVAR;