simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

perf: use a monomorphic impl for CCMonomorphic.{min,max}

Browse source 
close #452
This commit is contained in:
Simon Cruanes 2024-06-03 10:21:16 -04:00
parent fcd4d3f6ec
commit 9a14cab3db
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/monomorphic/CCMonomorphic.ml
View file

@ -7,8 +7,19 @@ let ( > ) : int -> int -> bool = Stdlib.( > )
let ( <= ) : int -> int -> bool = Stdlib.( <= )
let ( >= ) : int -> int -> bool = Stdlib.( >= )
let compare : int -> int -> int = Stdlib.compare
[@@@ifge 4.13]
let min : int -> int -> int = Int.min
let max : int -> int -> int = Int.max
[@@@else_]
let min : int -> int -> int = Stdlib.min
let max : int -> int -> int = Stdlib.max
[@@@endif]
let ( =. ) : float -> float -> bool = Stdlib.( = )
let ( <>. ) : float -> float -> bool = Stdlib.( <> )
let ( <. ) : float -> float -> bool = Stdlib.( < )