[perl.git] branch blead, updated. v5.27.4-34-g9995b99e16

[Yves Orton]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/9995b99e160dcf6aabd893a490cbc95bc736f00f?hp=582a8ad99532af5c8db4e42c8880618fbce41c6d>

- Log -----------------------------------------------------------------
commit 9995b99e160dcf6aabd893a490cbc95bc736f00f
Author: Yves Orton <demer...@gmail.com>
Date:   Mon Oct 2 15:00:58 2017 +0200

    fix some thinkos in the new hash code
    
    pointed out by Tux on irc. I dont think this will solve
    all his problems, but it is a first step....
-----------------------------------------------------------------------

Summary of changes:
 stadtx_hash.h   | 6 +++---
 zaphod32_hash.h | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/stadtx_hash.h b/stadtx_hash.h
index 30278e3b53..db6c406583 100644
--- a/stadtx_hash.h
+++ b/stadtx_hash.h
@@ -50,8 +50,8 @@
 #define STMT_END while(0)
 #endif
 
-#ifndef STADTX_UNALIGNED_AND_LITTLE_ENDIAN
-#define STADTX_UNALIGNED_AND_LITTLE_ENDIAN 1
+#ifndef STADTX_ALLOW_UNALIGNED_AND_LITTLE_ENDIAN
+#define STADTX_ALLOW_UNALIGNED_AND_LITTLE_ENDIAN 1
 #endif
 
 #if STADTX_ALLOW_UNALIGNED_AND_LITTLE_ENDIAN
@@ -170,7 +170,7 @@ STADTX_STATIC_INLINE U64 stadtx_hash_with_state(
     const STRLEN key_len
 ) {
     U64 *state= (U64 *)state_ch;
-    U64 len = key_len;
+    STRLEN len = key_len;
     U64 v0= state[0] ^ ((key_len+1) * STADTX_K0_U64);
     U64 v1= state[1] ^ ((key_len+2) * STADTX_K1_U64);
     if (len < 32) {
diff --git a/zaphod32_hash.h b/zaphod32_hash.h
index 842b2473f9..353d85b3f3 100644
--- a/zaphod32_hash.h
+++ b/zaphod32_hash.h
@@ -184,7 +184,7 @@ U32 zaphod32_hash_with_state(
 ) {
     U32 *state= (U32 *)state_ch;
     const U8 *end;
-    U32 len = key_len; 
+    STRLEN len = key_len;
     U32 v0= state[0];
     U32 v1= state[1];
     U32 v2= state[2] ^ (0xC41A7AB1 * (key_len + 1));

--
Perl5 Master Repository