summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2020-12-21 09:26:05 -0700
committerKarl Williamson <khw@cpan.org>2021-02-10 07:49:20 -0700
commitd9edeb134fe2401a95ccd308c53dc214034e9c6b (patch)
tree412e9fac69868915155a67be35db5291105a0e98 /regexec.c
parent7d997a145fef03ebd5e19b1e5116313520c23d6c (diff)
downloadperl-d9edeb134fe2401a95ccd308c53dc214034e9c6b.tar.gz
regexec.c: Make internal function static
This used to be called from utf8.c, but no longer; no need to make it other than static. This allows the compiler to better optimize.
Diffstat (limited to 'regexec.c')
-rw-r--r--regexec.c8
1 files changed, 2 insertions, 6 deletions
diff --git a/regexec.c b/regexec.c
index cab82cf514..75d58ce8d4 100644
--- a/regexec.c
+++ b/regexec.c
@@ -425,10 +425,8 @@ S_regcp_restore(pTHX_ regexp *rex, I32 ix, U32 *maxopenparen_p _pDEPTH)
#define regcpblow(cp) LEAVE_SCOPE(cp) /* Ignores regcppush()ed data. */
-#ifndef PERL_IN_XSUB_RE
-
-bool
-Perl_isFOO_lc(pTHX_ const U8 classnum, const U8 character)
+STATIC bool
+S_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
@@ -468,8 +466,6 @@ Perl_isFOO_lc(pTHX_ const U8 classnum, const U8 character)
return FALSE;
}
-#endif
-
PERL_STATIC_INLINE I32
S_foldEQ_latin1_s2_folded(const char *s1, const char *s2, I32 len)
{