This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: request inlining of single line function
authorKarl Williamson <public@khwilliamson.com>
Tue, 14 Jan 2014 16:29:58 +0000 (09:29 -0700)
committerKarl Williamson <public@khwilliamson.com>
Wed, 22 Jan 2014 18:45:57 +0000 (11:45 -0700)
embed.fnc
proto.h
regcomp.c

index bbaaaa6..3d2481c 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -2018,7 +2018,7 @@ Es        |regnode*|regatom       |NN RExC_state_t *pRExC_state \
                                |NN I32 *flagp|U32 depth
 Es     |regnode*|regbranch     |NN RExC_state_t *pRExC_state \
                                |NN I32 *flagp|I32 first|U32 depth
-Es     |STRLEN |reguni         |NN const RExC_state_t *pRExC_state \
+Ei     |STRLEN |reguni         |NN const RExC_state_t *pRExC_state \
                                |UV uv|NN char *s
 Es     |void    |set_ANYOF_arg |NN RExC_state_t* const pRExC_state \
                                |NN regnode* const node                    \
diff --git a/proto.h b/proto.h
index c816b7c..565ba15 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -6843,7 +6843,7 @@ STATIC void       S_regtail(pTHX_ RExC_state_t *pRExC_state, regnode *p, const regnode
 #define PERL_ARGS_ASSERT_REGTAIL       \
        assert(pRExC_state); assert(p); assert(val)
 
-STATIC STRLEN  S_reguni(pTHX_ const RExC_state_t *pRExC_state, UV uv, char *s)
+PERL_STATIC_INLINE STRLEN      S_reguni(pTHX_ const RExC_state_t *pRExC_state, UV uv, char *s)
                        __attribute__nonnull__(pTHX_1)
                        __attribute__nonnull__(pTHX_3);
 #define PERL_ARGS_ASSERT_REGUNI        \
index 34676cf..3e8f64d 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -14677,7 +14677,7 @@ S_reganode(pTHX_ RExC_state_t *pRExC_state, U8 op, U32 arg)
 /*
 - reguni - emit (if appropriate) a Unicode character
 */
-STATIC STRLEN
+PERL_STATIC_INLINE STRLEN
 S_reguni(pTHX_ const RExC_state_t *pRExC_state, UV uv, char* s)
 {
     dVAR;