fix 32bit platform bug

This commit is contained in:
Simon Cruanes 2026-03-14 03:48:06 +00:00
parent d12a809658
commit 9fa87cd9aa

View file

@ -20,7 +20,7 @@ CAMLprim value caml_cc_xxhash_mix_int64_byte(value v_state, value v_value) {
/* mix_int: (int64_t state, intnat value) -> int64_t */
CAMLprim int64_t caml_cc_xxhash_mix_int(int64_t state, intnat value) {
int64_t v = (int64_t)value;
int64_t v = (int64_t)(uintnat)value; /* zero-extend on 32-bit platforms */
return (int64_t)XXH64(&v, sizeof(v), (XXH64_hash_t)state);
}
CAMLprim value caml_cc_xxhash_mix_int_byte(value v_state, value v_value) {