diff options
| author | Karl Williamson <khw@cpan.org> | 2019-09-10 11:51:40 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2019-09-15 10:39:56 -0600 |
| commit | 73f0a2ebf04911b86968dd3aef90572662bc36ca (patch) | |
| tree | e221a3da761cb1ee8a1fdaa247bcf60c1e0bcbb5 /inline.h | |
| parent | 9a9a6c9859e31a91d4dd61190df208c24f5cbdc4 (diff) | |
| download | perl-73f0a2ebf04911b86968dd3aef90572662bc36ca.tar.gz | |
Strip leading underscore _variant_byte_number()
Names with leading underscores are reserved for the C implementers.
Diffstat (limited to 'inline.h')
| -rw-r--r-- | inline.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -466,7 +466,7 @@ Perl_is_utf8_invariant_string_loc(const U8* const s, STRLEN len, const U8 ** ep) # if BYTEORDER == 0x1234 || BYTEORDER == 0x12345678 \ || BYTEORDER == 0x4321 || BYTEORDER == 0x87654321 - *ep = x + _variant_byte_number(* (PERL_UINTMAX_T *) x); + *ep = x + variant_byte_number(* (PERL_UINTMAX_T *) x); assert(*ep >= s && *ep < send); return FALSE; @@ -504,7 +504,7 @@ Perl_is_utf8_invariant_string_loc(const U8* const s, STRLEN len, const U8 ** ep) #ifndef EBCDIC PERL_STATIC_INLINE unsigned int -Perl__variant_byte_number(PERL_UINTMAX_T word) +Perl_variant_byte_number(PERL_UINTMAX_T word) { /* This returns the position in a word (0..7) of the first variant byte in |