Micro-optimize Ident.compare

This function is called a very large amount of times. Surprisingly, it was calling the generic compare function. This has a very small impact. Co-authored-by: Guillaume Petiot <[email protected]>
ocaml · Nov 7, 2023 · a88f7fe · a88f7fe
1 parent 0b4a460
commit a88f7fe
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/xref2/ident.ml b/src/xref2/ident.ml
@@ -367,8 +367,7 @@ end
 
 let hash : any -> int = Hashtbl.hash
 
-let compare : any -> any -> int =
- fun a b -> compare (int_of_any a) (int_of_any b)
+let compare : any -> any -> int = fun a b -> int_of_any a - int_of_any b
 
 module Maps = struct
   module Module = Map.Make (struct