X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=lib%2Fint63_on_32.ml;h=c57a4ed7143deb51bdd8b5314e472583435df470;hb=71536ae75dceb08e0f3c3403033fb2eb25a08883;hp=0b23d49e140ccdf0ec475cec2f8aeaa24f9c35c9;hpb=70ecd5f92e887185fd3e09f603e4c5e1a06ef4f4;p=virt-df.git

diff --git a/lib/int63_on_32.ml b/lib/int63_on_32.ml
index 0b23d49..c57a4ed 100644
--- a/lib/int63_on_32.ml
+++ b/lib/int63_on_32.ml
@@ -35,9 +35,9 @@ module Operators = struct
   external ( %^ ) : int64 -> int64 -> int64 = "%int64_mod"
   external ( <^< ) : int64 -> int -> int64 = "%int64_lsl"
   external ( >^> ) : int64 -> int -> int64 = "%int64_lsr"
-  external ( &&^ ) : int64 -> int64 -> int64 = "%int64_and"
-  external ( ||^ ) : int64 -> int64 -> int64 = "%int64_or"
-  external ( ^^^ ) : int64 -> int64 -> int64 = "%int64_xor"
+  external ( &^ ) : int64 -> int64 -> int64 = "%int64_and"
+  external ( |^ ) : int64 -> int64 -> int64 = "%int64_or"
+  external ( ^^ ) : int64 -> int64 -> int64 = "%int64_xor"
   external ( ~^ ) : int -> int64 = "%int64_of_int"
   let ( ~^~ ) i = Int64.neg (Int64.of_int i)
 end