summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--embed.fnc2
-rw-r--r--embed.h2
-rw-r--r--proto.h2
-rw-r--r--utf8.c4
4 files changed, 5 insertions, 5 deletions
diff --git a/embed.fnc b/embed.fnc
index 1d7dfc5a2e..4a53b25d58 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -2484,7 +2484,7 @@ iTR |int |does_utf8_overflow|NN const U8 * const s \
|const bool consider_overlongs
iTR |int |is_utf8_overlong_given_start_byte_ok|NN const U8 * const s \
|const STRLEN len
-iTR |int |isFF_OVERLONG |NN const U8 * const s|const STRLEN len
+iTR |int |isFF_overlong |NN const U8 * const s|const STRLEN len
SR |char * |unexpected_non_continuation_text \
|NN const U8 * const s \
|STRLEN print_len \
diff --git a/embed.h b/embed.h
index e32b06076c..ee85c75abd 100644
--- a/embed.h
+++ b/embed.h
@@ -1989,7 +1989,7 @@
#define _to_utf8_case(a,b,c,d,e,f,g,h,i) S__to_utf8_case(aTHX_ a,b,c,d,e,f,g,h,i)
#define check_locale_boundary_crossing(a,b,c,d) S_check_locale_boundary_crossing(aTHX_ a,b,c,d)
#define does_utf8_overflow S_does_utf8_overflow
-#define isFF_OVERLONG S_isFF_OVERLONG
+#define isFF_overlong S_isFF_overlong
#define is_utf8_common(a,b,c) S_is_utf8_common(aTHX_ a,b,c)
#define is_utf8_overlong_given_start_byte_ok S_is_utf8_overlong_given_start_byte_ok
#define new_msg_hv(a,b,c) S_new_msg_hv(aTHX_ a,b,c)
diff --git a/proto.h b/proto.h
index 92c371a649..bb77d8307b 100644
--- a/proto.h
+++ b/proto.h
@@ -6633,7 +6633,7 @@ PERL_STATIC_INLINE int S_does_utf8_overflow(const U8 * const s, const U8 * e, co
#endif
#ifndef PERL_NO_INLINE_FUNCTIONS
-PERL_STATIC_INLINE int S_isFF_OVERLONG(const U8 * const s, const STRLEN len)
+PERL_STATIC_INLINE int S_isFF_overlong(const U8 * const s, const STRLEN len)
__attribute__warn_unused_result__;
#define PERL_ARGS_ASSERT_ISFF_OVERLONG \
assert(s)
diff --git a/utf8.c b/utf8.c
index 3e4215b8a5..c7f3c58ade 100644
--- a/utf8.c
+++ b/utf8.c
@@ -754,11 +754,11 @@ S_is_utf8_overlong_given_start_byte_ok(const U8 * const s, const STRLEN len)
}
/* Check for the FF overlong */
- return isFF_OVERLONG(s, len);
+ return isFF_overlong(s, len);
}
PERL_STATIC_INLINE int
-S_isFF_OVERLONG(const U8 * const s, const STRLEN len)
+S_isFF_overlong(const U8 * const s, const STRLEN len)
{
/* Returns an int indicating whether or not the UTF-8 sequence from 's' to
* 'e' - 1 is an overlong beginning with \xFF. It returns 1 if it is; 0 if