blob: cf364ade3fcf36afd678fa86de3f3065511bd413 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
--- uutil.ml.orig 2024-02-06 20:32:31 UTC
+++ uutil.ml
@@ -34,7 +34,7 @@ let hash2 x y = (17 * x + 257 * y) land 0x3FFFFFFF
let hash2 x y = (17 * x + 257 * y) land 0x3FFFFFFF
-external hash_param : int -> int -> 'a -> int = "caml_hash_univ_param" "noalloc"
+external hash_param : int -> int -> 'a -> int = "unsn_hash_univ_param" "noalloc"
let hash x = hash_param 10 100 x
|
