This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
embed.fnc: Add p flag for is_utf8_non_invariant_string()
authorKarl Williamson <khw@cpan.org>
Thu, 12 Sep 2019 04:08:24 +0000 (22:08 -0600)
committerKarl Williamson <khw@cpan.org>
Sun, 15 Sep 2019 16:39:56 +0000 (10:39 -0600)
This is because it has the X flag, which means the function is visible
on ELF systems.

embed.fnc
embed.h
inline.h
proto.h

index 8bcee1c..dd41bae 100644 (file)
--- 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 6bbbbe4..f1c3f57 100644 (file)
--- a/embed.h
+++ b/embed.h
 #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)
index c35fe95..5a4729a 100644 (file)
--- 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 9362088..cd6ab6e 100644 (file)
--- 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)