This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
hv_func.h: Fix compilation error
authorKarl Williamson <khw@cpan.org>
Thu, 1 Jun 2017 16:18:02 +0000 (10:18 -0600)
committerKarl Williamson <khw@cpan.org>
Thu, 1 Jun 2017 16:26:57 +0000 (10:26 -0600)
g++ 6.3 croaks on the new PERL_HASH_WITH_SEED macro.  The parameters
need casts

hv_func.h

index 8a92c36..da37442 100644 (file)
--- a/hv_func.h
+++ b/hv_func.h
@@ -111,7 +111,7 @@ U32 S_perl_hash_with_seed(const U8 * const seed, const U8 * const str, const STR
 }
 
 #define PERL_HASH_WITH_SEED(seed,hash,str,len) \
 }
 
 #define PERL_HASH_WITH_SEED(seed,hash,str,len) \
-    (hash) = S_perl_hash_with_seed(seed,str,len)
+    (hash) = S_perl_hash_with_seed((const U8 *) seed, (const U8 *) str,len)
 #define PERL_HASH_WITH_STATE(state,hash,str,len) \
     (hash) = _PERL_HASH_WITH_STATE((state),(U8*)(str),(len))
 #define PERL_HASH_SEED_STATE(seed,state) _PERL_HASH_SEED_STATE(seed,state)
 #define PERL_HASH_WITH_STATE(state,hash,str,len) \
     (hash) = _PERL_HASH_WITH_STATE((state),(U8*)(str),(len))
 #define PERL_HASH_SEED_STATE(seed,state) _PERL_HASH_SEED_STATE(seed,state)