This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8.c: Remove unused thread context for core-only fcn
authorKarl Williamson <khw@cpan.org>
Sat, 31 Mar 2018 18:47:32 +0000 (12:47 -0600)
committerKarl Williamson <khw@cpan.org>
Sat, 31 Mar 2018 22:03:22 +0000 (16:03 -0600)
embed.fnc
embed.h
proto.h
utf8.c

index e4952bf..dbab75a 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -777,7 +777,7 @@ snR |int    |is_utf8_cp_above_31_bits|NN const U8 * const s             \
 #  endif
 #endif
 #if defined(PERL_IN_UTF8_C) || defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C)
-EX   |UV        |_to_fold_latin1|const U8 c|NN U8 *p|NN STRLEN *lenp|const unsigned int flags
+EXnp   |UV        |_to_fold_latin1|const U8 c|NN U8 *p|NN STRLEN *lenp|const unsigned int flags
 #endif
 #if defined(PERL_IN_UTF8_C) || defined(PERL_IN_PP_C)
 p      |UV     |_to_upper_title_latin1|const U8 c|NN U8 *p|NN STRLEN *lenp|const char S_or_s
diff --git a/embed.h b/embed.h
index d23400c..cf7ec3e 100644 (file)
--- a/embed.h
+++ b/embed.h
 #define isFOO_lc(a,b)          Perl_isFOO_lc(aTHX_ a,b)
 #  endif
 #  if defined(PERL_IN_UTF8_C) || defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C)
-#define _to_fold_latin1(a,b,c,d)       Perl__to_fold_latin1(aTHX_ a,b,c,d)
+#define _to_fold_latin1                Perl__to_fold_latin1
 #  endif
 #endif
 #ifdef PERL_CORE
diff --git a/proto.h b/proto.h
index 3d18e6d..72acb41 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -6047,7 +6047,7 @@ PERL_CALLCONV UV  Perl__to_upper_title_latin1(pTHX_ const U8 c, U8 *p, STRLEN *le
        assert(p); assert(lenp)
 #endif
 #if defined(PERL_IN_UTF8_C) || defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C)
-PERL_CALLCONV UV       Perl__to_fold_latin1(pTHX_ const U8 c, U8 *p, STRLEN *lenp, const unsigned int flags);
+PERL_CALLCONV UV       Perl__to_fold_latin1(const U8 c, U8 *p, STRLEN *lenp, const unsigned int flags);
 #define PERL_ARGS_ASSERT__TO_FOLD_LATIN1       \
        assert(p); assert(lenp)
 #endif
diff --git a/utf8.c b/utf8.c
index 8ba6819..42b0e06 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -3075,8 +3075,7 @@ Perl_to_uni_lower(pTHX_ UV c, U8* p, STRLEN *lenp)
 }
 
 UV
-Perl__to_fold_latin1(pTHX_ const U8 c, U8* p, STRLEN *lenp,
-                           const unsigned int flags)
+Perl__to_fold_latin1(const U8 c, U8* p, STRLEN *lenp, const unsigned int flags)
 {
     /* Corresponds to to_lower_latin1(); <flags> bits meanings:
      *     FOLD_FLAGS_NOMIX_ASCII iff non-ASCII to ASCII folds are prohibited
@@ -3088,7 +3087,6 @@ Perl__to_fold_latin1(pTHX_ const U8 c, U8* p, STRLEN *lenp,
     UV converted;
 
     PERL_ARGS_ASSERT__TO_FOLD_LATIN1;
-    PERL_UNUSED_CONTEXT;
 
     assert (! (flags & FOLD_FLAGS_LOCALE));