tick off release 5.27.6

[perl5.git] / hv_func.h

diff --git a/hv_func.h b/hv_func.h
index 8230fb4..fdbb753 100644 (file)
--- a/hv_func.h
+++ b/hv_func.h
@@ -83,7 +83,7 @@
 
 #define _PERL_HASH_FUNC         "SBOX32_WITH_" __PERL_HASH_FUNC
 
-#define _PERL_HASH_SEED_BYTES   ( __PERL_HASH_SEED_BYTES + ( 3 * sizeof(U32) ) )
+#define _PERL_HASH_SEED_BYTES   ( __PERL_HASH_SEED_BYTES + (int)( 3 * sizeof(U32) ) )
 
 #define _PERL_HASH_STATE_BYTES  \
     ( __PERL_HASH_STATE_BYTES + ( ( 1 + ( 256 * SBOX32_MAX_LEN ) ) * sizeof(U32) ) )
@@ -96,9 +96,7 @@
 #define _PERL_HASH_WITH_STATE(state,str,len)                                            \
     (LIKELY(len <= SBOX32_MAX_LEN)                                                      \
         ? sbox32_hash_with_state((state + __PERL_HASH_STATE_BYTES),(U8*)(str),(len))    \
-        : UNLIKELY(len > (STRLEN) I32_MAX)                                              \
-          ? Perl_croak_nocontext("Sorry, hash keys must be smaller than 2**31 bytes")   \
-          : __PERL_HASH_WITH_STATE((state),(str),(len)))
+        : __PERL_HASH_WITH_STATE((state),(str),(len)))
 
 #endif