Add efficient compare_int in INCLUDED .ml files.

[SXSI/xpathcomp.git] / include / utils.ml

diff --git a/include/utils.ml b/include/utils.ml
index 7d3690a..fcb74c1 100644 (file)
--- a/include/utils.ml
+++ b/include/utils.ml
@@ -131,7 +131,8 @@ let next_power2 v =
     v+1
 
 external vb : bool -> int = "%identity"
-
+let compare_int x y = vb (x > y) - vb (x < y)
+let compare_int_unsafe x y = x - y
 
 
 END (* IFNDEF UTILS__ML__ *)