This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
in hash init code preserve constness
authorYves Orton <demerphq@gmail.com>
Wed, 13 Sep 2017 11:34:17 +0000 (13:34 +0200)
committerYves Orton <demerphq@gmail.com>
Wed, 13 Sep 2017 11:34:17 +0000 (13:34 +0200)
This causes warnings in some our builds as can be seen in some
smoke reports:

  zaphod32_hash.h:185:17: warning: cast discards '__attribute__((const))'
  qualifier from pointer target type [-Wcast-qual]

sbox32_hash.h
stadtx_hash.h
zaphod32_hash.h

index 9c98195..748256c 100644 (file)
@@ -1421,7 +1421,7 @@ SBOX32_STATIC_INLINE void sbox32_seed_state96 (
     const U8 *seed_ch,
     U8 *state_ch
 ) {
-    U32 *seed= (U32 *)seed_ch;
+    const U32 *seed= (const U32 *)seed_ch;
     U32 *state= (U32 *)state_ch;
     U32 *state_cursor = state + 1;
     U32 *sbox32_end = state + 1 + (256 * SBOX32_MAX_LEN);
index 3a5d81e..30278e3 100644 (file)
@@ -118,7 +118,7 @@ STADTX_STATIC_INLINE void stadtx_seed_state (
     const U8 *seed_ch,
     U8 *state_ch
 ) {
-    U64 *seed= (U64 *)seed_ch;
+    const U64 *seed= (const U64 *)seed_ch;
     U64 *state= (U64 *)state_ch;
     /* first we apply two masks to each word of the seed, this means that
      * a) at least one of state[0] and state[2] is nonzero,
index ec091f7..842b247 100644 (file)
@@ -134,7 +134,7 @@ void zaphod32_seed_state (
     const U8 *seed_ch,
     U8 *state_ch
 ) {
-    U32 *seed= (U32 *)seed_ch;
+    const U32 *seed= (const U32 *)seed_ch;
     U32 *state= (U32 *)state_ch;
   
     /* hex expansion of pi, skipping first two digits. pi= 3.2[43f6...]*/