From: Kim Nguyễn <kn@lri.fr>
Date: Thu, 1 Mar 2012 13:26:59 +0000 (+0100)
Subject: Small optimization (replace lor 1 by + 1)
X-Git-Url: http://git.nguyen.vg/gitweb/?a=commitdiff_plain;h=642b641d914ed49e5e3c084eb93d31e90d4b851b;hp=4fb1afc60e3af83e6184c77ea2cb002def542a96;p=SXSI%2Fxpathcomp.git

Small optimization (replace lor 1 by + 1)
---

diff --git a/src/finiteCofinite.ml b/src/finiteCofinite.ml
index ecd0a56..db6ce31 100644
--- a/src/finiteCofinite.ml
+++ b/src/finiteCofinite.ml
@@ -62,7 +62,7 @@ struct
 				 | _ -> false
 			     let hash = function
 			       Finite (s) -> (E.hash s) lsl 1
-			     | CoFinite(s) -> ((E.hash s) lsl 1 ) lor 1
+			     | CoFinite(s) -> ((E.hash s) lsl 1 ) + 1
 			   end)
   type t = Node.t
   let empty = Node.make (Finite E.empty)