diff options
author | Karl Williamson <khw@cpan.org> | 2018-04-02 21:57:10 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2018-04-02 22:08:50 -0600 |
commit | 0cb291171cc75e1aed1c415a7178c1ea9441259b (patch) | |
tree | 693d3823a70c5be55e915424144d5fd9c3deb79c /inline.h | |
parent | 8121278aa8fe72e9e8aca8651c7f1d4fa204ac1d (diff) | |
download | perl-0cb291171cc75e1aed1c415a7178c1ea9441259b.tar.gz |
inline.h: Silence compiler warning
Some compilers depending on memory and pointer size, emitted a warning
here.
Diffstat (limited to 'inline.h')
-rw-r--r-- | inline.h | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -641,7 +641,8 @@ S_variant_under_utf8_count(const U8* const s, const U8* const e) /* Process per-word as long as we have at least a full word left */ do { /* Commit 03c1e4ab1d6ee9062fb3f94b0ba31db6698724b1 contains an explanation of how this works */ - count += ((((* (PERL_UINTMAX_T *) x) & PERL_VARIANTS_WORD_MASK) >> 7) + count += (Size_t) + ((((* (PERL_UINTMAX_T *) x) & PERL_VARIANTS_WORD_MASK) >> 7) * PERL_COUNT_MULTIPLIER) >> ((PERL_WORDSIZE - 1) * CHARBITS); x += PERL_WORDSIZE; |