Commit c9f86431 authored by Allan Blanchard's avatar Allan Blanchard
Browse files

[Wp] Cfloat simplifies Compute.key comparison

parent 30caa67b
......@@ -305,9 +305,7 @@ module Compute = WpContext.StaticGenerator
(struct
type t = model * c_float * op
let compare k1 k2 =
let open Integer in
compare (of_int (Hashtbl.hash k1)) (of_int (Hashtbl.hash k2))
let compare = Pervasives.compare
let pretty fmt (m, ft, op) =
Format.fprintf fmt "%s_%a_%s" (model_name m) pp_suffix ft (op_name op)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment