X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=lib%2Fint63_on_64.ml;h=c3c40732acbf73ef5664bf44f966d454a037b5e7;hb=10ae94c252bfc3e744407115274fd3d92957d026;hp=56792948fdd2762db824f5d8bb1e0bf5000d4914;hpb=8c2be1f021e65637f24b0ecd1907f7a069e347a2;p=virt-df.git

diff --git a/lib/int63_on_64.ml b/lib/int63_on_64.ml
index 5679294..c3c4073 100644
--- a/lib/int63_on_64.ml
+++ b/lib/int63_on_64.ml
@@ -28,8 +28,12 @@ module Operators = struct
   external ( -^ ) : int -> int -> int = "%subint"
   external ( *^ ) : int -> int -> int = "%mulint"
   external ( /^ ) : int -> int -> int = "%divint"
-  external ( <<^ ) : int -> int -> int = "%lslint"
-  external ( >>^ ) : int -> int -> int = "%lsrint"
+  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 = "%identity"
   external ( ~^~ ) : int -> int = "%negint"
 end