X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=lib%2Fint63_on_64.ml;h=c3c40732acbf73ef5664bf44f966d454a037b5e7;hb=2e218847fac3e2e7b698ae6cc6fe1a6f3b462431;hp=a1c9487c4e6fecdaaf85460bad25b1bf3f589467;hpb=70ecd5f92e887185fd3e09f603e4c5e1a06ef4f4;p=virt-df.git

diff --git a/lib/int63_on_64.ml b/lib/int63_on_64.ml
index a1c9487..c3c4073 100644
--- a/lib/int63_on_64.ml
+++ b/lib/int63_on_64.ml
@@ -31,9 +31,9 @@ module Operators = struct
   external ( %^ ) : int -> int -> int = "%modint"
   external ( <^< ) : int -> int -> int = "%lslint"
   external ( >^> ) : int -> int -> int = "%lsrint"
-  external ( &&^ ) : int -> int -> int = "%andint"
-  external ( ||^ ) : int -> int -> int = "%orint"
-  external ( ^^^ ) : int -> int -> int = "%xorint"
+  external ( &^ ) : int -> int -> int = "%andint"
+  external ( |^ ) : int -> int -> int = "%orint"
+  external ( ^^ ) : int -> int -> int = "%xorint"
   external ( ~^ ) : int -> int = "%identity"
   external ( ~^~ ) : int -> int = "%negint"
 end