embed.fnc: Add p flag for is_utf8_non_invariant_string()

This is because it has the X flag, which means the function is visible
on ELF systems.

4 files changed, 4 insertions, 4 deletions

diff --git a/embed.fnc b/embed.fnc
index 8bcee1c3aa..dd41bae851 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1015,7 +1015,7 @@ EiTRd	|Size_t	|variant_under_utf8_count|NN const U8* const s		    \
 AmTdRP	|bool	|is_ascii_string|NN const U8* const s|STRLEN len
 AmTdRP	|bool	|is_invariant_string|NN const U8* const s|STRLEN len
 #if defined(PERL_CORE) || defined (PERL_EXT)
-EXTidR	|bool	|is_utf8_non_invariant_string|NN const U8* const s	    \
+EXTidRp	|bool	|is_utf8_non_invariant_string|NN const U8* const s	    \
 		|STRLEN len
 #endif
 AbTpdD	|STRLEN	|is_utf8_char	|NN const U8 *s
diff --git a/embed.h b/embed.h
index 6bbbbe410e..f1c3f57aa2 100644
--- a/embed.h
+++ b/embed.h
@@ -1177,7 +1177,7 @@
 #define sv_setsv_cow(a,b)	Perl_sv_setsv_cow(aTHX_ a,b)
 #  endif
 #  if defined(PERL_CORE) || defined (PERL_EXT)
-#define is_utf8_non_invariant_string	S_is_utf8_non_invariant_string
+#define is_utf8_non_invariant_string	Perl_is_utf8_non_invariant_string
 #define sv_or_pv_pos_u2b(a,b,c,d)	S_sv_or_pv_pos_u2b(aTHX_ a,b,c,d)
 #  endif
 #  if defined(PERL_CORE) || defined(PERL_EXT)
diff --git a/inline.h b/inline.h
index c35fe9561e..5a4729a8b4 100644
--- a/inline.h
+++ b/inline.h
@@ -775,7 +775,7 @@ at this low a level.  A valid use case could change that.
 */
 
 PERL_STATIC_INLINE bool
-S_is_utf8_non_invariant_string(const U8* const s, STRLEN len)
+Perl_is_utf8_non_invariant_string(const U8* const s, STRLEN len)
 {
     const U8 * first_variant;
 
diff --git a/proto.h b/proto.h
index 93620886b8..cd6ab6e8b4 100644
--- a/proto.h
+++ b/proto.h
@@ -5140,7 +5140,7 @@ PERL_CALLCONV void	Perl_Slab_to_rw(pTHX_ OPSLAB *const slab);
 #endif
 #if defined(PERL_CORE) || defined (PERL_EXT)
 #ifndef PERL_NO_INLINE_FUNCTIONS
-PERL_STATIC_INLINE bool	S_is_utf8_non_invariant_string(const U8* const s, STRLEN len)
+PERL_STATIC_INLINE bool	Perl_is_utf8_non_invariant_string(const U8* const s, STRLEN len)
 			__attribute__warn_unused_result__;
 #define PERL_ARGS_ASSERT_IS_UTF8_NON_INVARIANT_STRING	\
 	assert(s)