File tree Expand file tree Collapse file tree 2 files changed +12
-0
lines changed Expand file tree Collapse file tree 2 files changed +12
-0
lines changed Original file line number Diff line number Diff line change 22
33include Int64
44
5+ [@@@ iflt 4.13 ]
6+
57let min : t -> t -> t = Stdlib. min
68let max : t -> t -> t = Stdlib. max
9+
10+ [@@@ endif]
11+
712let sign i = compare i zero
813
914(* use FNV:
Original file line number Diff line number Diff line change @@ -18,6 +18,8 @@ include module type of struct
1818 include Int64
1919end
2020
21+ [@@@ iflt 4.13 ]
22+
2123val min : t -> t -> t
2224(* * [min x y] returns the minimum of the two integers [x] and [y].
2325 @since 3.0 *)
@@ -26,10 +28,15 @@ val max : t -> t -> t
2628(* * [max x y] returns the maximum of the two integers [x] and [y].
2729 @since 3.0 *)
2830
31+ [@@@ endif]
32+ [@@@ iflt 5.1 ]
33+
2934val hash : t -> int
3035(* * [hash x] computes the hash of [x], a non-negative integer.
3136 Uses FNV since 3.10 *)
3237
38+ [@@@ endif]
39+
3340val hash_to_int64 : t -> t
3441(* * Like {!hash} but does not truncate.
3542 Uses FNV.
You can’t perform that action at this time.
0 commit comments