From d9edeb134fe2401a95ccd308c53dc214034e9c6b Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Mon, 21 Dec 2020 09:26:05 -0700 Subject: 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. --- proto.h | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'proto.h') diff --git a/proto.h b/proto.h index 8a98030d28..29385e45fb 100644 --- a/proto.h +++ b/proto.h @@ -6214,6 +6214,10 @@ PERL_STATIC_INLINE I32 S_foldEQ_latin1_s2_folded(const char* a, const char* b, I #define PERL_ARGS_ASSERT_FOLDEQ_LATIN1_S2_FOLDED \ assert(a); assert(b) #endif +STATIC bool S_isFOO_lc(pTHX_ const U8 classnum, const U8 character) + __attribute__warn_unused_result__; +#define PERL_ARGS_ASSERT_ISFOO_LC + STATIC bool S_isFOO_utf8_lc(pTHX_ const U8 classnum, const U8* character, const U8* e) __attribute__warn_unused_result__; #define PERL_ARGS_ASSERT_ISFOO_UTF8_LC \ @@ -6294,12 +6298,6 @@ STATIC bool S_to_byte_substr(pTHX_ regexp * prog); STATIC void S_to_utf8_substr(pTHX_ regexp * prog); #define PERL_ARGS_ASSERT_TO_UTF8_SUBSTR \ assert(prog) -#endif -#if defined(PERL_IN_REGEXEC_C) || defined(PERL_IN_UTF8_C) -PERL_CALLCONV bool Perl_isFOO_lc(pTHX_ const U8 classnum, const U8 character) - __attribute__warn_unused_result__; -#define PERL_ARGS_ASSERT_ISFOO_LC - #endif #if defined(PERL_IN_SCOPE_C) STATIC void S_save_pushptri32ptr(pTHX_ void *const ptr1, const I32 i, void *const ptr2, const int type); -- cgit v1.2.1