Skip to content

Commit 9493c6c

Browse files
committed
Fix cppo
1 parent 4d6454b commit 9493c6c

17 files changed

+13
-20
lines changed
File renamed without changes.
File renamed without changes.

runtime/others_cppo/hashmap.cppo.res renamed to runtime/cppo/hashmap.cppo.res

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -16,15 +16,15 @@
1616
#ifdef TYPE_STRING
1717
type key = string
1818
type seed = int
19-
external caml_hash_mix_string: (seed, string) => seed = "?hash_mix_string"
20-
external final_mix: seed => seed = "?hash_final_mix"
21-
let hash = (s: key) => final_mix(caml_hash_mix_string(0, s))
19+
external hash_mix_string: (seed, string) => seed = "%hash_mix_string"
20+
external hash_final_mix: seed => seed = "%hash_final_mix"
21+
let hash = (s: key) => hash_final_mix(hash_mix_string(0, s))
2222
#elif defined TYPE_INT
2323
type key = int
2424
type seed = int
25-
external caml_hash_mix_int: (seed, int) => seed = "?hash_mix_int"
26-
external final_mix: seed => seed = "?hash_final_mix"
27-
let hash = (s: key) => final_mix(caml_hash_mix_int(0, s))
25+
external hash_mix_int: (seed, int) => seed = "%hash_mix_int"
26+
external hash_final_mix: seed => seed = "%hash_final_mix"
27+
let hash = (s: key) => hash_final_mix(hash_mix_int(0, s))
2828
#else
2929
[%error "unknown type"]
3030
#endif
File renamed without changes.

runtime/others_cppo/hashset.cppo.res renamed to runtime/cppo/hashset.cppo.res

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1,15 +1,15 @@
11
#ifdef TYPE_STRING
22
type key = string
33
type seed = int
4-
external caml_hash_mix_string: (seed, string) => seed = "?hash_mix_string"
5-
external final_mix: seed => seed = "?hash_final_mix"
6-
let hash = (s: key) => final_mix(caml_hash_mix_string(0, s))
4+
external hash_mix_string: (seed, string) => seed = "%hash_mix_string"
5+
external hash_final_mix: seed => seed = "%hash_final_mix"
6+
let hash = (s: key) => hash_final_mix(hash_mix_string(0, s))
77
#elif defined TYPE_INT
88
type key = int
99
type seed = int
10-
external caml_hash_mix_int: (seed, int) => seed = "?hash_mix_int"
11-
external final_mix: seed => seed = "?hash_final_mix"
12-
let hash = (s: key) => final_mix(caml_hash_mix_int(0, s))
10+
external hash_mix_int: (seed, int) => seed = "%hash_mix_int"
11+
external hash_final_mix: seed => seed = "%hash_final_mix"
12+
let hash = (s: key) => hash_final_mix(hash_mix_int(0, s))
1313
#else
1414
[%error "unknown type"]
1515
#endif
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.

0 commit comments

Comments
 (0)