The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

#include "hash.h"
#include <new>
#include <stdlib.h>
namespace panda { namespace hash {
uint64_t hash_murmur64a (string_view str) {
const uint64_t seed = 7;
const uint64_t m = 0xc6a4a7935bd1e995LLU;
const int r = 47;
auto len = str.length();
const uint64_t * data = (const uint64_t *) str.data();
const uint64_t * end = data + (len/8);
uint64_t h = seed ^ (len * m);
while (data != end) {
uint64_t k = *data++;
k *= m;
k ^= k >> r;
k *= m;
h ^= k;
h *= m;
}
const unsigned char * data2 = (const unsigned char*) data;
switch (len & 7) {
case 7: h ^= uint64_t(data2[6]) << 48; // fallthrough
case 6: h ^= uint64_t(data2[5]) << 40; // fallthrough
case 5: h ^= uint64_t(data2[4]) << 32; // fallthrough
case 4: h ^= uint64_t(data2[3]) << 24; // fallthrough
case 3: h ^= uint64_t(data2[2]) << 16; // fallthrough
case 2: h ^= uint64_t(data2[1]) << 8; // fallthrough
case 1: h ^= uint64_t(data2[0]);
h *= m;
};
h ^= h >> r;
h *= m;
h ^= h >> r;
return h;
}
uint32_t hash_jenkins_one_at_a_time (string_view str) {
const char* key = str.data();
auto len = str.length();
uint32_t hash, i;
for (hash = i = 0; i < len; ++i) {
hash += key[i];
hash += (hash << 10);
hash ^= (hash >> 6);
}
hash += (hash << 3);
hash ^= (hash >> 11);
hash += (hash << 15);
return hash;
}
}}