FileMgr

✏️ /usr/lib/x86_64-linux-gnu/perl/5.38.2/CORE/hv_func.h

✕ Tutup

/* hash a key
 *--------------------------------------------------------------------------------------
 * The "hash seed" feature was added in Perl 5.8.1 to perturb the results
 * to avoid "algorithmic complexity attacks".
 *
 * If USE_HASH_SEED is defined, hash randomisation is done by default
 * (see also perl.c:perl_parse() and S_init_tls_and_interp() and util.c:get_hash_seed())
 */
#ifndef PERL_SEEN_HV_FUNC_H_ /* compile once */
#define PERL_SEEN_HV_FUNC_H_
#include "hv_macro.h"

#if !( 0 \
        || defined(PERL_HASH_FUNC_SIPHASH) \
        || defined(PERL_HASH_FUNC_SIPHASH13) \
        || defined(PERL_HASH_FUNC_ZAPHOD32) \
    )
#   ifdef CAN64BITHASH
#       define PERL_HASH_FUNC_SIPHASH13
#   else
#       define PERL_HASH_FUNC_ZAPHOD32
#   endif
#endif

#ifndef PERL_HASH_USE_SBOX32_ALSO
#  if defined(PERL_HASH_USE_SBOX32) || !defined(PERL_HASH_NO_SBOX32)
#    define PERL_HASH_USE_SBOX32_ALSO 1
#  else
#    define PERL_HASH_USE_SBOX32_ALSO 0
#  endif
#endif

#undef PERL_HASH_USE_SBOX32
#undef PERL_HASH_NO_SBOX32
#if PERL_HASH_USE_SBOX32_ALSO != 0
#  define PERL_HASH_USE_SBOX32
#else
#  define PERL_HASH_NO_SBOX32
#endif

#ifndef SBOX32_MAX_LEN
#define SBOX32_MAX_LEN 24
#endif

/* this must be after the SBOX32_MAX_LEN define */
#include "sbox32_hash.h"

#if defined(PERL_HASH_FUNC_SIPHASH)
# define PERL_HASH_FUNC_DEFINE "PERL_HASH_FUNC_SIPHASH"
# define PVT__PERL_HASH_FUNC "SIPHASH_2_4"
# define PVT__PERL_HASH_WORD_TYPE U64
# define PVT__PERL_HASH_WORD_SIZE sizeof(PVT__PERL_HASH_WORD_TYPE)
# define PVT__PERL_HASH_SEED_BYTES (PVT__PERL_HASH_WORD_SIZE * 2)
# define PVT__PERL_HASH_STATE_BYTES (PVT__PERL_HASH_WORD_SIZE * 4)
# define PVT__PERL_HASH_SEED_STATE(seed,state) S_perl_siphash_seed_state(seed,state)
# define PVT__PERL_HASH_WITH_STATE(state,str,len) S_perl_hash_siphash_2_4_with_state((state),(U8*)(str),(len))
#elif defined(PERL_HASH_FUNC_SIPHASH13)
# define PERL_HASH_FUNC_DEFINE "PERL_HASH_FUNC_SIPHASH13"
# define PVT__PERL_HASH_FUNC "SIPHASH_1_3"
# define PVT__PERL_HASH_WORD_TYPE U64
# define PVT__PERL_HASH_WORD_SIZE sizeof(PVT__PERL_HASH_WORD_TYPE)
# define PVT__PERL_HASH_SEED_BYTES (PVT__PERL_HASH_WORD_SIZE * 2)
# define PVT__PERL_HASH_STATE_BYTES (PVT__PERL_HASH_WORD_SIZE * 4)
# define PVT__PERL_HASH_SEED_STATE(seed,state) S_perl_siphash_seed_state(seed,state)
# define PVT__PERL_HASH_WITH_STATE(state,str,len) S_perl_hash_siphash_1_3_with_state((state),(const U8*)(str),(len))
#elif defined(PERL_HASH_FUNC_ZAPHOD32)
# define PERL_HASH_FUNC_DEFINE "PERL_HASH_FUNC_ZAPHOD32"
# define PVT__PERL_HASH_FUNC "ZAPHOD32"
# define PVT__PERL_HASH_WORD_TYPE U32
# define PVT__PERL_HASH_WORD_SIZE sizeof(PVT__PERL_HASH_WORD_TYPE)
# define PVT__PERL_HASH_SEED_BYTES (PVT__PERL_HASH_WORD_SIZE * 3)
# define PVT__PERL_HASH_STATE_BYTES (PVT__PERL_HASH_WORD_SIZE * 3)
# define PVT__PERL_HASH_SEED_STATE(seed,state) zaphod32_seed_state(seed,state)
# define PVT__PERL_HASH_WITH_STATE(state,str,len) (U32)zaphod32_hash_with_state((state),(U8*)(str),(len))
# include "zaphod32_hash.h"
#endif

#ifndef PVT__PERL_HASH_WITH_STATE
#error "No hash function defined!"
#endif
#ifndef PVT__PERL_HASH_SEED_BYTES
#error "PVT__PERL_HASH_SEED_BYTES not defined"
#endif
#ifndef PVT__PERL_HASH_FUNC
#error "PVT__PERL_HASH_FUNC not defined"
#endif

/* Some siphash static functions are needed by XS::APItest even when
   siphash isn't the current hash.  For SipHash builds this needs to
   be before the S_perl_hash_with_seed() definition.
*/
#include "perl_siphash.h"

#define PVT__PERL_HASH_SEED_roundup(x, y)   ( ( ( (x) + ( (y) - 1 ) ) / (y) ) * (y) )
#define PVT_PERL_HASH_SEED_roundup(x) PVT__PERL_HASH_SEED_roundup(x,PVT__PERL_HASH_WORD_SIZE)

#define PL_hash_seed ((U8 *)PL_hash_seed_w)
#define PL_hash_state ((U8 *)PL_hash_state_w)

#if PERL_HASH_USE_SBOX32_ALSO == 0
# define PVT_PERL_HASH_FUNC                        PVT__PERL_HASH_FUNC
# define PVT_PERL_HASH_SEED_BYTES                  PVT__PERL_HASH_SEED_BYTES
# define PVT_PERL_HASH_STATE_BYTES                 PVT__PERL_HASH_STATE_BYTES
# define PVT_PERL_HASH_SEED_STATE(seed,state)      PVT__PERL_HASH_SEED_STATE(seed,state)
# define PVT_PERL_HASH_WITH_STATE(state,str,len)   PVT__PERL_HASH_WITH_STATE(state,str,len)
#else

#define PVT_PERL_HASH_FUNC         "SBOX32_WITH_" PVT__PERL_HASH_FUNC
/* note the 4 in the below code comes from the fact the seed to initialize the SBOX is 128 bits */
#define PVT_PERL_HASH_SEED_BYTES   ( PVT__PERL_HASH_SEED_BYTES + (int)( 4 * sizeof(U32)) )

#define PVT_PERL_HASH_STATE_BYTES  \
    ( PVT__PERL_HASH_STATE_BYTES + ( ( 1 + ( 256 * SBOX32_MAX_LEN ) ) * sizeof(U32) ) )

#define PVT_PERL_HASH_SEED_STATE(seed,state) STMT_START {                                      \
    PVT__PERL_HASH_SEED_STATE(seed,state);                                                     \
    sbox32_seed_state128(seed + PVT__PERL_HASH_SEED_BYTES, state + PVT__PERL_HASH_STATE_BYTES);    \
} STMT_END

#define PVT_PERL_HASH_WITH_STATE(state,str,len)                                            \
    (LIKELY(len <= SBOX32_MAX_LEN)                                                      \
        ? sbox32_hash_with_state((state + PVT__PERL_HASH_STATE_BYTES),(const U8*)(str),(len))    \
        : PVT__PERL_HASH_WITH_STATE((state),(str),(len)))

#endif

#define PERL_HASH_WITH_SEED(seed,hash,str,len) \
    (hash) = S_perl_hash_with_seed((const U8 *) seed, (const U8 *) str,len)
#define PERL_HASH_WITH_STATE(state,hash,str,len) \
    (hash) = PVT_PERL_HASH_WITH_STATE((state),(const U8*)(str),(len))

#define PERL_HASH_SEED_STATE(seed,state) PVT_PERL_HASH_SEED_STATE(seed,state)
#define PERL_HASH_SEED_BYTES PVT_PERL_HASH_SEED_roundup(PVT_PERL_HASH_SEED_BYTES)
#define PERL_HASH_STATE_BYTES PVT_PERL_HASH_SEED_roundup(PVT_PERL_HASH_STATE_BYTES)
#define PERL_HASH_FUNC        PVT_PERL_HASH_FUNC

#define PERL_HASH_SEED_WORDS (PERL_HASH_SEED_BYTES/PVT__PERL_HASH_WORD_SIZE)
#define PERL_HASH_STATE_WORDS (PERL_HASH_STATE_BYTES/PVT__PERL_HASH_WORD_SIZE)

#ifdef PERL_USE_SINGLE_CHAR_HASH_CACHE
#define PERL_HASH(state,str,len) \
    (hash) = ((len) < 2 ? ( (len) == 0 ? PL_hash_chars[256] : PL_hash_chars[(U8)(str)[0]] ) \
                       : PVT_PERL_HASH_WITH_STATE(PL_hash_state,(U8*)(str),(len)))
#else
#define PERL_HASH(hash,str,len) \
    PERL_HASH_WITH_STATE(PL_hash_state,hash,(U8*)(str),(len))
#endif

/* Setup the hash seed, either we do things dynamically at start up,
 * including reading from the environment, or we randomly setup the
 * seed. The seed will be passed into the PERL_HASH_SEED_STATE() function
 * defined for the configuration defined for this perl, which will then
 * initialize whatever state it might need later in hashing. */

#ifndef PERL_HASH_SEED
#   if defined(USE_HASH_SEED)
#       define PERL_HASH_SEED PL_hash_seed
#   else
       /* this is a 512 bit seed, which should be more than enough for the
        * configuration of any of our hash functions (with or without sbox).
        * If you actually use a hard coded seed, you are strongly encouraged
        * to replace this with something else of the correct length
        * for the hash function you are using (24-32 bytes depending on build
        * options). Repeat, you are *STRONGLY* encouraged not to use the value
        * provided here.
        */
#       define PERL_HASH_SEED \
           ((const U8 *)"A long string of pseudorandomly "  \
                        "chosen bytes for hashing in Perl")
#   endif
#endif

/* legacy - only mod_perl should be doing this.  */
#ifdef PERL_HASH_INTERNAL_ACCESS
#define PERL_HASH_INTERNAL(hash,str,len) PERL_HASH(hash,str,len)
#endif

PERL_STATIC_INLINE U32
S_perl_hash_with_seed(const U8 * seed, const U8 *str, STRLEN len) {
    PVT__PERL_HASH_WORD_TYPE state[PERL_HASH_STATE_WORDS];
    PVT_PERL_HASH_SEED_STATE(seed,(U8*)state);
    return PVT_PERL_HASH_WITH_STATE((U8*)state,str,len);
}

#endif /*compile once*/

/*
 * ex: set ts=8 sts=4 sw=4 et:
 */

Batal

⬅ 5.38.2 85 item

Nama	Tipe	Ukuran	Diubah	Perm	Aksi
📄 EXTERN.h	h	1.5 KB	12/06/26 13:42	0644	✏️ ⬇
📄 INTERN.h	h	1.3 KB	12/06/26 13:42	0644	✏️ ⬇
📄 XSUB.h	h	23.7 KB	12/06/26 13:42	0644	✏️ ⬇
📄 av.h	h	6.8 KB	12/06/26 13:42	0644	✏️ ⬇
📄 bitcount.h	h	1 KB	12/06/26 13:42	0644	✏️ ⬇
📄 charclass_invlists.h	h	4.3 MB	12/06/26 13:42	0644	✏️ ⬇
📄 config.h	h	164.7 KB	12/06/26 13:42	0644	✏️ ⬇
📄 cop.h	h	57.2 KB	12/06/26 13:42	0644	✏️ ⬇
📄 cv.h	h	14.3 KB	12/06/26 13:42	0644	✏️ ⬇
📄 dosish.h	h	3.6 KB	12/06/26 13:42	0644	✏️ ⬇
📄 ebcdic_tables.h	h	48.8 KB	12/06/26 13:42	0644	✏️ ⬇
📄 embed.h	h	143.5 KB	12/06/26 13:42	0644	✏️ ⬇
📄 embedvar.h	h	23.9 KB	12/06/26 13:42	0644	✏️ ⬇
📄 fakesdio.h	h	3.1 KB	12/06/26 13:42	0644	✏️ ⬇
📄 feature.h	h	15 KB	12/06/26 13:42	0644	✏️ ⬇
📄 form.h	h	1.4 KB	12/06/26 13:42	0644	✏️ ⬇
📄 git_version.h	h	357 B	12/06/26 13:42	0644	✏️ ⬇
📄 gv.h	h	11.7 KB	12/06/26 13:42	0644	✏️ ⬇
📄 handy.h	h	141.9 KB	12/06/26 13:42	0644	✏️ ⬇
📄 hv.h	h	27.6 KB	12/06/26 13:42	0644	✏️ ⬇
📄 hv_func.h	h	7.7 KB	12/06/26 13:42	0644	✏️ ⬇
📄 hv_macro.h	h	3.1 KB	12/06/26 13:42	0644	✏️ ⬇
📄 inline.h	h	111.9 KB	12/06/26 13:42	0644	✏️ ⬇
📄 intrpvar.h	h	37.9 KB	12/06/26 13:42	0644	✏️ ⬇
📄 invlist_inline.h	h	11.2 KB	12/06/26 13:42	0644	✏️ ⬇
📄 iperlsys.h	h	62.5 KB	12/06/26 13:42	0644	✏️ ⬇
📄 keywords.h	h	6.6 KB	12/06/26 13:42	0644	✏️ ⬇
📄 l1_char_class_tab.h	h	118.1 KB	12/06/26 13:42	0644	✏️ ⬇
📄 malloc_ctl.h	h	1.5 KB	12/06/26 13:42	0644	✏️ ⬇
📄 metaconfig.h	h	705 B	12/06/26 13:42	0644	✏️ ⬇
📄 mg.h	h	3.6 KB	12/06/26 13:42	0644	✏️ ⬇
📄 mg_data.h	h	5.5 KB	12/06/26 13:42	0644	✏️ ⬇
📄 mg_raw.h	h	4.7 KB	12/06/26 13:42	0644	✏️ ⬇
📄 mg_vtable.h	h	10.3 KB	12/06/26 13:42	0644	✏️ ⬇
📄 mydtrace.h	h	1.7 KB	12/06/26 13:42	0644	✏️ ⬇
📄 nostdio.h	h	3.3 KB	12/06/26 13:42	0644	✏️ ⬇
📄 op.h	h	40.9 KB	12/06/26 13:42	0644	✏️ ⬇
📄 op_reg_common.h	h	5.9 KB	12/06/26 13:42	0644	✏️ ⬇
📄 opcode.h	h	95.8 KB	12/06/26 13:42	0644	✏️ ⬇
📄 opnames.h	h	9.2 KB	12/06/26 13:42	0644	✏️ ⬇
📄 overload.h	h	3.2 KB	12/06/26 13:42	0644	✏️ ⬇
📄 pad.h	h	19.6 KB	12/06/26 13:42	0644	✏️ ⬇
📄 parser.h	h	6.9 KB	12/06/26 13:42	0644	✏️ ⬇
📄 patchlevel-debian.h	h	6.2 KB	12/06/26 13:42	0644	✏️ ⬇
📄 patchlevel.h	h	6.5 KB	12/06/26 13:42	0644	✏️ ⬇
📄 perl.h	h	320.4 KB	12/06/26 13:42	0644	✏️ ⬇
📄 perl_inc_macro.h	h	5.9 KB	12/06/26 13:42	0644	✏️ ⬇
📄 perl_langinfo.h	h	2.8 KB	12/06/26 13:42	0644	✏️ ⬇
📄 perl_siphash.h	h	5.1 KB	12/06/26 13:42	0644	✏️ ⬇
📄 perlapi.h	h	635 B	12/06/26 13:42	0644	✏️ ⬇
📄 perlio.h	h	9.5 KB	12/06/26 13:42	0644	✏️ ⬇
📄 perliol.h	h	13.3 KB	12/06/26 13:42	0644	✏️ ⬇
📄 perlsdio.h	h	527 B	12/06/26 13:42	0644	✏️ ⬇
📄 perlstatic.h	h	894 B	12/06/26 13:42	0644	✏️ ⬇
📄 perlvars.h	h	16.8 KB	12/06/26 13:42	0644	✏️ ⬇
📄 perly.h	h	5.7 KB	12/06/26 13:42	0644	✏️ ⬇
📄 pp.h	h	30 KB	12/06/26 13:42	0644	✏️ ⬇
📄 pp_proto.h	h	20.4 KB	12/06/26 13:42	0644	✏️ ⬇
📄 proto.h	h	327.9 KB	12/06/26 13:42	0644	✏️ ⬇
📄 reentr.h	h	85.2 KB	12/06/26 13:42	0644	✏️ ⬇
📄 regcharclass.h	h	270.3 KB	12/06/26 13:42	0644	✏️ ⬇
📄 regcomp.h	h	68 KB	12/06/26 13:42	0644	✏️ ⬇
📄 regcomp_internal.h	h	60.7 KB	12/06/26 13:42	0644	✏️ ⬇
📄 regexp.h	h	43.7 KB	12/06/26 13:42	0644	✏️ ⬇
📄 reginline.h	h	1.5 KB	12/06/26 13:42	0644	✏️ ⬇
📄 regnodes.h	h	127 KB	12/06/26 13:42	0644	✏️ ⬇
📄 sbox32_hash.h	h	54.4 KB	12/06/26 13:42	0644	✏️ ⬇
📄 scope.h	h	12.2 KB	12/06/26 13:42	0644	✏️ ⬇
📄 scope_types.h	h	5.1 KB	12/06/26 13:42	0644	✏️ ⬇
📄 sv.h	h	105.6 KB	12/06/26 13:42	0644	✏️ ⬇
📄 sv_inline.h	h	27.7 KB	12/06/26 13:42	0644	✏️ ⬇
📄 thread.h	h	19.5 KB	12/06/26 13:42	0644	✏️ ⬇
📄 time64.h	h	900 B	12/06/26 13:42	0644	✏️ ⬇
📄 time64_config.h	h	2 KB	12/06/26 13:42	0644	✏️ ⬇
📄 uconfig.h	h	164.4 KB	12/06/26 13:42	0644	✏️ ⬇
📄 uni_keywords.h	h	557.4 KB	12/06/26 13:42	0644	✏️ ⬇
📄 unicode_constants.h	h	56.4 KB	12/06/26 13:42	0644	✏️ ⬇
📄 unixish.h	h	5.5 KB	12/06/26 13:42	0644	✏️ ⬇
📄 utf8.h	h	59.9 KB	12/06/26 13:42	0644	✏️ ⬇
📄 utfebcdic.h	h	11.5 KB	12/06/26 13:42	0644	✏️ ⬇
📄 util.h	h	10.5 KB	12/06/26 13:42	0644	✏️ ⬇
📄 uudmap.h	h	1 KB	12/06/26 13:42	0644	✏️ ⬇
📄 vutil.h	h	4 KB	12/06/26 13:42	0644	✏️ ⬇
📄 warnings.h	h	11.7 KB	12/06/26 13:42	0644	✏️ ⬇
📄 zaphod32_hash.h	h	9.5 KB	12/06/26 13:42	0644	✏️ ⬇

✏️ Rename

🔑 Ubah Permission