summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/zaphod32_hash.h
diff options
context:
space:
mode:
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/zaphod32_hash.h')
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/zaphod32_hash.h19
1 files changed, 12 insertions, 7 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/zaphod32_hash.h b/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/zaphod32_hash.h
index 8b15adfb45..834d8cb3fd 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/zaphod32_hash.h
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/zaphod32_hash.h
@@ -133,12 +133,17 @@ void zaphod32_seed_state (
const U32 *seed= (const U32 *)seed_ch;
U32 *state= (U32 *)state_ch;
- /* hex expansion of pi, skipping first two digits. pi= 3.2[43f6...]*/
- /* pi value in hex from here:
- * http://turner.faculty.swau.edu/mathematics/materialslibrary/pi/pibases.html*/
- /* Ensure that the three state vectors are nonzero regardless of the seed. */
- /* The idea of these two steps is to ensure that the 0 state comes from a seed
- * utterly unlike that of the value we replace it with.*/
+ /* hex expansion of PI, skipping first two digits. PI= 3.2[43f6...]
+ *
+ * PI value in hex from here:
+ *
+ * http://turner.faculty.swau.edu/mathematics/materialslibrary/pi/pibases.html
+ *
+ * Ensure that the three state vectors are nonzero regardless of
+ * the seed. The idea of these two steps is to ensure that the 0
+ * state comes from a seed utterly unlike that of the value we
+ * replace it with.
+ */
state[0]= seed[0] ^ 0x43f6a888;
state[1]= seed[1] ^ 0x5a308d31;
state[2]= seed[2] ^ 0x3198a2e0;
@@ -178,7 +183,7 @@ U32 zaphod32_hash_with_state(
const U8 *key,
const STRLEN key_len
) {
- U32 *state= (U32 *)state_ch;
+ const U32 *state= (const U32 *)state_ch;
const U8 *end;
STRLEN len = key_len;
U32 v0= state[0];