summaryrefslogtreecommitdiff
path: root/inline.h
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2018-04-02 21:57:10 -0600
committerKarl Williamson <khw@cpan.org>2018-04-02 22:08:50 -0600
commit0cb291171cc75e1aed1c415a7178c1ea9441259b (patch)
tree693d3823a70c5be55e915424144d5fd9c3deb79c /inline.h
parent8121278aa8fe72e9e8aca8651c7f1d4fa204ac1d (diff)
downloadperl-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.h3
1 files changed, 2 insertions, 1 deletions
diff --git a/inline.h b/inline.h
index 8c20e7583a..fc9e13e5d3 100644
--- a/inline.h
+++ b/inline.h
@@ -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;