mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 08:38:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

Remove mathoms.c stub Perl_is_utf8_string_loc

Browse Source 
This is now implemented entirely via macros
This commit is contained in:
Karl Williamson 2024-10-21 13:27:22 -06:00 committed by Karl Williamson
parent ed5892451d
commit 0d6c2e8ca4
5 changed files with 7 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
embed.fnc
View File

@ -1740,7 +1740,7 @@ ARTdip |bool |is_utf8_string_flags \
|NN const U8 *s \
|STRLEN len \
|const U32 flags
AMTbdp |bool |is_utf8_string_loc \
ATdmp |bool |is_utf8_string_loc \
|NN const U8 *s \
|const STRLEN len \
|NN const U8 **ep

1
embed.h
View File

@ -322,6 +322,7 @@
# define is_utf8_fixed_width_buf_loclen_flags Perl_is_utf8_fixed_width_buf_loclen_flags
# define is_utf8_invariant_string_loc Perl_is_utf8_invariant_string_loc
# define is_utf8_string_flags Perl_is_utf8_string_flags
# define is_utf8_string_loc Perl_is_utf8_string_loc
# define is_utf8_string_loclen Perl_is_utf8_string_loclen
# define is_utf8_string_loclen_flags Perl_is_utf8_string_loclen_flags
# define is_utf8_valid_partial_char_flags Perl_is_utf8_valid_partial_char_flags

3
inline.h
View File

@ -2114,7 +2114,8 @@ Perl_is_utf8_string_flags(const U8 *s, STRLEN len, const U32 flags)
return TRUE;
}
#define is_utf8_string_loc(s, len, ep) is_utf8_string_loclen(s, len, ep, 0)
#define Perl_is_utf8_string_loc(s, len, ep) \
Perl_is_utf8_string_loclen(s, len, ep, 0)
PERL_STATIC_INLINE bool
Perl_is_utf8_string_loclen(const U8 *s, STRLEN len, const U8 **ep, STRLEN *el)

8
mathoms.c
View File

@ -437,14 +437,6 @@ Perl_do_aexec(pTHX_ SV *really, SV **mark, SV **sp)
}
#endif
bool
Perl_is_utf8_string_loc(const U8 *s, const STRLEN len, const U8 **ep)
{
PERL_ARGS_ASSERT_IS_UTF8_STRING_LOC;
return is_utf8_string_loclen(s, len, ep, 0);
}
/*
=for apidoc_section $SV
=for apidoc sv_nolocking

8
proto.h generated
View File

@ -1866,6 +1866,9 @@ is_utf8_fixed_width_buf_loc_flags(const U8 * const s, STRLEN len, const U8 **ep,
is_utf8_string(const U8 *s, STRLEN len)
__attribute__warn_unused_result__; */
/* PERL_CALLCONV bool
Perl_is_utf8_string_loc(const U8 *s, const STRLEN len, const U8 **ep); */
/* PERL_CALLCONV bool
is_utf8_string_loc_flags(const U8 *s, STRLEN len, const U8 **ep, const U32 flags); */
@ -5818,11 +5821,6 @@ Perl_is_utf8_char_buf(const U8 *buf, const U8 *buf_end);
# define PERL_ARGS_ASSERT_IS_UTF8_CHAR_BUF \
assert(buf); assert(buf_end)
PERL_CALLCONV bool
Perl_is_utf8_string_loc(const U8 *s, const STRLEN len, const U8 **ep);
# define PERL_ARGS_ASSERT_IS_UTF8_STRING_LOC \
assert(s); assert(ep)
PERL_CALLCONV AV *
Perl_newAV(pTHX)
__attribute__warn_unused_result__;