File tree Expand file tree Collapse file tree 2 files changed +16
-0
lines changed
Expand file tree Collapse file tree 2 files changed +16
-0
lines changed Original file line number Diff line number Diff line change 22
33include Int32
44
5+ [@@@ iflt 4.13 ]
6+
57let min : t -> t -> t = Stdlib. min
68let max : t -> t -> t = Stdlib. max
9+
10+ [@@@ endif]
11+ [@@@ iflt 5.1 ]
12+
713let hash x = Stdlib. abs (to_int x)
14+
15+ [@@@ endif]
16+
817let sign i = compare i zero
918
1019let pow a b =
Original file line number Diff line number Diff line change @@ -18,6 +18,8 @@ include module type of struct
1818 include Int32
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].
3136 Like {!Stdlib.abs (to_int x)}. *)
3237
38+ [@@@ endif]
39+
3340val sign : t -> int
3441(* * [sign x] return [0] if [x = 0], [-1] if [x < 0] and [1] if [x > 0].
3542 Same as [compare x zero].
You can’t perform that action at this time.
0 commit comments