This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use UINT64_C.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 22 Oct 2014 01:41:16 +0000 (21:41 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 25 Jul 2015 19:53:04 +0000 (15:53 -0400)
hv_func.h

index b7d68e8..eebb9be 100644 (file)
--- a/hv_func.h
+++ b/hv_func.h
@@ -577,7 +577,7 @@ S_perl_hash_old_one_at_a_time(const unsigned char * const seed, const unsigned c
 PERL_STATIC_INLINE U32
 S_perl_hash_murmur_hash_64a (const unsigned char * const seed, const unsigned char *str, const STRLEN len)
 {
-        const U64TYPE m = 0xc6a4a7935bd1e995;
+        const U64 m = UINT64_C(0xc6a4a7935bd1e995);
         const int r = 47;
         U64TYPE h = *((U64TYPE*)seed) ^ len;
         const U64TYPE * data = (const U64TYPE *)str;