Gecko [ betsfootball.net ]

Name	Size	Permission	Date
EXTERN.h	1.54 KB	-rw-r--r--	2023-11-25 20:59
INTERN.h	1.25 KB	-rw-r--r--	2023-11-25 20:59
XSUB.h	23.65 KB	-rw-r--r--	2023-11-25 20:59
av.h	6.82 KB	-rw-r--r--	2023-11-25 20:59
bitcount.h	1.01 KB	-rw-r--r--	2023-11-25 20:59
charclass_invlists.h	4.27 MB	-rw-r--r--	2023-11-25 20:59
config.h	163.31 KB	-rw-r--r--	2023-11-25 20:59
cop.h	50.21 KB	-rw-r--r--	2023-11-25 20:59
cv.h	12.3 KB	-rw-r--r--	2023-11-25 20:59
dosish.h	3.3 KB	-rw-r--r--	2023-11-25 20:59
ebcdic_tables.h	52 KB	-rw-r--r--	2023-11-25 20:59
embed.h	100.96 KB	-rw-r--r--	2023-11-25 20:59
embedvar.h	14.77 KB	-rw-r--r--	2023-11-25 20:59
fakesdio.h	3.13 KB	-rw-r--r--	2023-11-25 20:59
feature.h	13.59 KB	-rw-r--r--	2023-11-25 20:59
form.h	1.43 KB	-rw-r--r--	2023-11-25 20:59
git_version.h	357 B	-rw-r--r--	2023-11-25 20:59
gv.h	11.63 KB	-rw-r--r--	2023-11-25 20:59
handy.h	133.69 KB	-rw-r--r--	2023-11-25 20:59
hv.h	26.61 KB	-rw-r--r--	2023-11-25 20:59
hv_func.h	7.03 KB	-rw-r--r--	2023-11-25 20:59
hv_macro.h	3.09 KB	-rw-r--r--	2023-11-25 20:59
inline.h	103.44 KB	-rw-r--r--	2023-11-25 20:59
intrpvar.h	35.86 KB	-rw-r--r--	2023-11-25 20:59
invlist_inline.h	7.29 KB	-rw-r--r--	2023-11-25 20:59
iperlsys.h	62.76 KB	-rw-r--r--	2023-11-25 20:59
keywords.h	6.54 KB	-rw-r--r--	2023-11-25 20:59
l1_char_class_tab.h	118.12 KB	-rw-r--r--	2023-11-25 20:59
malloc_ctl.h	1.49 KB	-rw-r--r--	2023-11-25 20:59
metaconfig.h	766 B	-rw-r--r--	2023-11-25 20:59
mg.h	3.56 KB	-rw-r--r--	2023-11-25 20:59
mg_data.h	5.2 KB	-rw-r--r--	2023-11-25 20:59
mg_raw.h	4.27 KB	-rw-r--r--	2023-11-25 20:59
mg_vtable.h	9.52 KB	-rw-r--r--	2023-11-25 20:59
mydtrace.h	1.65 KB	-rw-r--r--	2023-11-25 20:59
nostdio.h	3.32 KB	-rw-r--r--	2023-11-25 20:59
op.h	39.7 KB	-rw-r--r--	2023-11-25 20:59
op_reg_common.h	5.77 KB	-rw-r--r--	2023-11-25 20:59
opcode.h	93.47 KB	-rw-r--r--	2023-11-25 20:59
opnames.h	9 KB	-rw-r--r--	2023-11-25 20:59
overload.h	3.2 KB	-rw-r--r--	2023-11-25 20:59
pad.h	17.17 KB	-rw-r--r--	2023-11-25 20:59
parser.h	6.95 KB	-rw-r--r--	2023-11-25 20:59
patchlevel-debian.h	6.34 KB	-rw-r--r--	2023-11-25 20:59
patchlevel.h	6.42 KB	-rw-r--r--	2023-11-25 20:59
perl.h	296.47 KB	-rw-r--r--	2023-11-25 20:59
perl_inc_macro.h	6.2 KB	-rw-r--r--	2023-11-25 20:59
perl_langinfo.h	2.85 KB	-rw-r--r--	2023-11-25 20:59
perl_siphash.h	5.06 KB	-rw-r--r--	2023-11-25 20:59
perlapi.h	634 B	-rw-r--r--	2023-11-25 20:59
perlio.h	9.49 KB	-rw-r--r--	2023-11-25 20:59
perliol.h	13.27 KB	-rw-r--r--	2023-11-25 20:59
perlsdio.h	527 B	-rw-r--r--	2023-11-25 20:59
perlvars.h	12.01 KB	-rw-r--r--	2023-11-25 20:59
perly.h	8.87 KB	-rw-r--r--	2023-11-25 20:59
pp.h	28.99 KB	-rw-r--r--	2023-11-25 20:59
pp_proto.h	12.35 KB	-rw-r--r--	2023-11-25 20:59
proto.h	277.8 KB	-rw-r--r--	2023-11-25 20:59
reentr.h	85.18 KB	-rw-r--r--	2023-11-25 20:59
regcharclass.h	270.17 KB	-rw-r--r--	2023-11-25 20:59
regcomp.h	51.69 KB	-rw-r--r--	2023-11-25 20:59
regexp.h	37.97 KB	-rw-r--r--	2023-11-25 20:59
regnodes.h	109.14 KB	-rw-r--r--	2023-11-25 20:59
sbox32_hash.h	54.4 KB	-rw-r--r--	2023-11-25 20:59
scope.h	13.08 KB	-rw-r--r--	2023-11-25 20:59
sv.h	96.71 KB	-rw-r--r--	2023-11-25 20:59
sv_inline.h	17.03 KB	-rw-r--r--	2023-11-25 20:59
thread.h	18 KB	-rw-r--r--	2023-11-25 20:59
time64.h	900 B	-rw-r--r--	2023-11-25 20:59
time64_config.h	2.02 KB	-rw-r--r--	2023-11-25 20:59
uconfig.h	163.02 KB	-rw-r--r--	2023-11-25 20:59
uni_keywords.h	551.47 KB	-rw-r--r--	2023-11-25 20:59
unicode_constants.h	56.41 KB	-rw-r--r--	2023-11-25 20:59
unixish.h	5.16 KB	-rw-r--r--	2023-11-25 20:59
utf8.h	57.62 KB	-rw-r--r--	2023-11-25 20:59
utfebcdic.h	11.48 KB	-rw-r--r--	2023-11-25 20:59
util.h	10.32 KB	-rw-r--r--	2023-11-25 20:59
uudmap.h	1.03 KB	-rw-r--r--	2023-11-25 20:59
vutil.h	3.96 KB	-rw-r--r--	2023-11-25 20:59
warnings.h	11.14 KB	-rw-r--r--	2023-11-25 20:59
zaphod32_hash.h	9.43 KB	-rw-r--r--	2023-11-25 20:59

Rename

/* This is SipHash by Jean-Philippe Aumasson and Daniel J. Bernstein.
 * The authors claim it is relatively secure compared to the alternatives
 * and that performance wise it is a suitable hash for languages like Perl.
 * See:
 *
 * https://www.131002.net/siphash/
 *
 * This implementation seems to perform slightly slower than one-at-a-time for
 * short keys, but degrades slower for longer keys. Murmur Hash outperforms it
 * regardless of keys size.
 *
 * It is 64 bit only.
 */

#ifdef CAN64BITHASH

#define SIPROUND            \
  STMT_START {              \
    v0 += v1; v1=ROTL64(v1,13); v1 ^= v0; v0=ROTL64(v0,32); \
    v2 += v3; v3=ROTL64(v3,16); v3 ^= v2;     \
    v0 += v3; v3=ROTL64(v3,21); v3 ^= v0;     \
    v2 += v1; v1=ROTL64(v1,17); v1 ^= v2; v2=ROTL64(v2,32); \
  } STMT_END

#define SIPHASH_SEED_STATE(key,v0,v1,v2,v3) \
do {                                    \
    v0 = v2 = U8TO64_LE(key + 0);       \
    v1 = v3 = U8TO64_LE(key + 8);       \
  /* "somepseudorandomlygeneratedbytes" */  \
    v0 ^= UINT64_C(0x736f6d6570736575);  \
    v1 ^= UINT64_C(0x646f72616e646f6d);      \
    v2 ^= UINT64_C(0x6c7967656e657261);      \
    v3 ^= UINT64_C(0x7465646279746573);      \
} while (0)

PERL_STATIC_INLINE
void S_perl_siphash_seed_state(const unsigned char * const seed_buf, unsigned char * state_buf) {
    U64 *v= (U64*) state_buf;
    SIPHASH_SEED_STATE(seed_buf, v[0],v[1],v[2],v[3]);
}

#define PERL_SIPHASH_FNC(FNC,SIP_ROUNDS,SIP_FINAL_ROUNDS) \
PERL_STATIC_INLINE U64 \
FNC ## _with_state_64 \
  (const unsigned char * const state, const unsigned char *in, const STRLEN inlen) \
{                                           \
  const int left = inlen & 7;               \
  const U8 *end = in + inlen - left;        \
                                            \
  U64 b = ( ( U64 )(inlen) ) << 56;         \
  U64 m;                                    \
  U64 v0 = U8TO64_LE(state);                \
  U64 v1 = U8TO64_LE(state+8);              \
  U64 v2 = U8TO64_LE(state+16);             \
  U64 v3 = U8TO64_LE(state+24);             \
                                            \
  for ( ; in != end; in += 8 )              \
  {                                         \
    m = U8TO64_LE( in );                    \
    v3 ^= m;                                \
                                            \
    SIP_ROUNDS;                             \
                                            \
    v0 ^= m;                                \
  }                                         \
                                            \
  switch( left )                            \
  {                                         \
  case 7: b |= ( ( U64 )in[ 6] )  << 48; /*FALLTHROUGH*/    \
  case 6: b |= ( ( U64 )in[ 5] )  << 40; /*FALLTHROUGH*/    \
  case 5: b |= ( ( U64 )in[ 4] )  << 32; /*FALLTHROUGH*/    \
  case 4: b |= ( ( U64 )in[ 3] )  << 24; /*FALLTHROUGH*/    \
  case 3: b |= ( ( U64 )in[ 2] )  << 16; /*FALLTHROUGH*/    \
  case 2: b |= ( ( U64 )in[ 1] )  <<  8; /*FALLTHROUGH*/    \
  case 1: b |= ( ( U64 )in[ 0] ); break;    \
  case 0: break;                            \
  }                                         \
                                            \
  v3 ^= b;                                  \
                                            \
  SIP_ROUNDS;                               \
                                            \
  v0 ^= b;                                  \
                                            \
  v2 ^= 0xff;                               \
                                            \
  SIP_FINAL_ROUNDS                          \
                                            \
  b = v0 ^ v1 ^ v2  ^ v3;                   \
  return b;                                 \
}                                           \
                                            \
PERL_STATIC_INLINE U32                      \
FNC ## _with_state                          \
  (const unsigned char * const state, const unsigned char *in, const STRLEN inlen) \
{                                           \
    union {                                 \
        U64 h64;                            \
        U32 h32[2];                         \
    } h;                                    \
    h.h64= FNC ## _with_state_64(state,in,inlen); \
    return h.h32[0] ^ h.h32[1];             \
}                                           \
                                            \
                                            \
PERL_STATIC_INLINE U32                      \
FNC (const unsigned char * const seed, const unsigned char *in, const STRLEN inlen) \
{                                                                   \
    U64 state[4];                                                   \
    SIPHASH_SEED_STATE(seed,state[0],state[1],state[2],state[3]);   \
    return FNC ## _with_state((U8*)state,in,inlen);                 \
}

PERL_SIPHASH_FNC(
    S_perl_hash_siphash_1_3
    ,SIPROUND;
    ,SIPROUND;SIPROUND;SIPROUND;
)

PERL_SIPHASH_FNC(
    S_perl_hash_siphash_2_4
    ,SIPROUND;SIPROUND;
    ,SIPROUND;SIPROUND;SIPROUND;SIPROUND;
)

#endif /* defined(CAN64BITHASH) */