This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use UINT64_C for UV constants.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 28 May 2014 13:32:34 +0000 (09:32 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 28 May 2014 13:33:18 +0000 (09:33 -0400)
hv_func.h

index 191912a..53230ae 100644 (file)
--- a/hv_func.h
+++ b/hv_func.h
 PERL_STATIC_INLINE U32
 S_perl_hash_siphash_2_4(const unsigned char * const seed, const unsigned char *in, const STRLEN inlen) {
   /* "somepseudorandomlygeneratedbytes" */
-  U64TYPE v0 = 0x736f6d6570736575ULL;
-  U64TYPE v1 = 0x646f72616e646f6dULL;
-  U64TYPE v2 = 0x6c7967656e657261ULL;
-  U64TYPE v3 = 0x7465646279746573ULL;
+  U64TYPE v0 = UINT64_C(0x736f6d6570736575);
+  U64TYPE v1 = UINT64_C(0x646f72616e646f6d);
+  U64TYPE v2 = UINT64_C(0x6c7967656e657261);
+  U64TYPE v3 = UINT64_C(0x7465646279746573);
 
   U64TYPE b;
   U64TYPE k0 = ((U64TYPE*)seed)[0];