X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=lib%2Fint63_on_32.ml;h=c57a4ed7143deb51bdd8b5314e472583435df470;hb=554b96246db7b4db7972a0aa50eb33d4d6039ab6;hp=37349ad50bc2d2066784a94e5ec7c706aaeeb8af;hpb=8c2be1f021e65637f24b0ecd1907f7a069e347a2;p=virt-df.git

diff --git a/lib/int63_on_32.ml b/lib/int63_on_32.ml
index 37349ad..c57a4ed 100644
--- a/lib/int63_on_32.ml
+++ b/lib/int63_on_32.ml
@@ -32,8 +32,12 @@ module Operators = struct
   external ( -^ ) : int64 -> int64 -> int64 = "%int64_sub"
   external ( *^ ) : int64 -> int64 -> int64 = "%int64_mul"
   external ( /^ ) : int64 -> int64 -> int64 = "%int64_div"
-  external ( <<^ ) : int64 -> int -> int64 = "%int64_lsl"
-  external ( >>^ ) : int64 -> int -> int64 = "%int64_lsr"
+  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 ( ~^ ) : int -> int64 = "%int64_of_int"
   let ( ~^~ ) i = Int64.neg (Int64.of_int i)
 end