This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regexec.c: Make isFOO_lc() non-static
authorKarl Williamson <khw@cpan.org>
Mon, 12 Dec 2016 03:35:09 +0000 (20:35 -0700)
committerKarl Williamson <khw@cpan.org>
Fri, 23 Dec 2016 23:48:36 +0000 (16:48 -0700)
This is in preparation for it to be called from outside this file.

embed.fnc
embed.h
proto.h
regexec.c

index db19d55..a63f463 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -2444,7 +2444,7 @@ Es        |U8     |regtail_study  |NN RExC_state_t *pRExC_state \
 #endif
 
 #if defined(PERL_IN_REGEXEC_C)
-ERs    |bool   |isFOO_lc       |const U8 classnum|const U8 character
+EXRpM  |bool   |isFOO_lc       |const U8 classnum|const U8 character
 ERs    |bool   |isFOO_utf8_lc  |const U8 classnum|NN const U8* character
 ERs    |SSize_t|regmatch       |NN regmatch_info *reginfo|NN char *startpos|NN regnode *prog
 WERs   |I32    |regrepeat      |NN regexp *prog|NN char **startposp \
diff --git a/embed.h b/embed.h
index 7d81ef7..2254895 100644 (file)
--- a/embed.h
+++ b/embed.h
 #define backup_one_SB(a,b,c)   S_backup_one_SB(aTHX_ a,b,c)
 #define backup_one_WB(a,b,c,d) S_backup_one_WB(aTHX_ a,b,c,d)
 #define find_byclass(a,b,c,d,e)        S_find_byclass(aTHX_ a,b,c,d,e)
-#define isFOO_lc(a,b)          S_isFOO_lc(aTHX_ a,b)
+#define isFOO_lc(a,b)          Perl_isFOO_lc(aTHX_ a,b)
 #define isFOO_utf8_lc(a,b)     S_isFOO_utf8_lc(aTHX_ a,b)
 #define isGCB(a,b,c,d,e)       S_isGCB(aTHX_ a,b,c,d,e)
 #define isLB(a,b,c,d,e,f)      S_isLB(aTHX_ a,b,c,d,e,f)
diff --git a/proto.h b/proto.h
index a7dc7d7..96da770 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -5276,7 +5276,7 @@ STATIC char*      S_find_byclass(pTHX_ regexp * prog, const regnode *c, char *s, cons
 #define PERL_ARGS_ASSERT_FIND_BYCLASS  \
        assert(prog); assert(c); assert(s); assert(strend)
 
-STATIC bool    S_isFOO_lc(pTHX_ const U8 classnum, const U8 character)
+PERL_CALLCONV bool     Perl_isFOO_lc(pTHX_ const U8 classnum, const U8 character)
                        __attribute__warn_unused_result__;
 
 STATIC bool    S_isFOO_utf8_lc(pTHX_ const U8 classnum, const U8* character)
index f720e7d..340a49e 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -445,8 +445,8 @@ S_regcp_restore(pTHX_ regexp *rex, I32 ix, U32 *maxopenparen_p _pDEPTH)
 
 #define regcpblow(cp) LEAVE_SCOPE(cp)  /* Ignores regcppush()ed data. */
 
-STATIC bool
-S_isFOO_lc(pTHX_ const U8 classnum, const U8 character)
+bool
+Perl_isFOO_lc(pTHX_ const U8 classnum, const U8 character)
 {
     /* Returns a boolean as to whether or not 'character' is a member of the
      * Posix character class given by 'classnum' that should be equivalent to a