Source file `base_internalhash_types.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
(** [state] is defined as a subtype of [int] using the [private] keyword. This makes it an
    opaque type for most purposes, and tells the compiler that the type is immediate. *)
type state = private int

type seed = int
type hash_value = int

external create_seeded : seed -> state = "%identity" [@@noalloc]

external fold_int64
  :  state
  -> (int64[@unboxed])
  -> state
  = "Base_internalhash_fold_int64" "Base_internalhash_fold_int64_unboxed"
  [@@noalloc]

external fold_int : state -> int -> state = "Base_internalhash_fold_int" [@@noalloc]

external fold_float
  :  state
  -> (float[@unboxed])
  -> state
  = "Base_internalhash_fold_float" "Base_internalhash_fold_float_unboxed"
  [@@noalloc]

external fold_string : state -> string -> state = "Base_internalhash_fold_string"
  [@@noalloc]

external get_hash_value : state -> hash_value = "Base_internalhash_get_hash_value"
  [@@noalloc]