Explorar o código

optimize ISet (no caml_compare)

Nicolas Cannasse %!s(int64=6) %!d(string=hai) anos
pai
achega
9944dabde7
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      src/generators/hlopt.ml

+ 1 - 1
src/generators/hlopt.ml

@@ -22,7 +22,7 @@
 open Hlcode
 
 module ISet = Set.Make(struct
-	let compare = Pervasives.compare
+	let compare a b = b - a
 	type t = int
 end)