This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use UINT64_C() for 64-bit constant.
authorJarkko Hietaniemi <jhi@iki.fi>
Tue, 28 Nov 2017 05:19:01 +0000 (07:19 +0200)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 28 Nov 2017 05:19:01 +0000 (07:19 +0200)
inline.h

index dfad907..98d9edc 100644 (file)
--- a/inline.h
+++ b/inline.h
@@ -400,7 +400,7 @@ S_is_utf8_invariant_string_loc(const U8* const s, STRLEN len, const U8 ** ep)
 #    define PERL_VARIANTS_WORD_MASK 0x80808080
 #    define PERL_WORD_BOUNDARY_MASK 0x3
 #  elif PERL_WORDSIZE == 8
-#    define PERL_VARIANTS_WORD_MASK 0x8080808080808080
+#    define PERL_VARIANTS_WORD_MASK UINT64_C(0x8080808080808080)
 #    define PERL_WORD_BOUNDARY_MASK 0x7
 #  else
 #    error Unexpected word size