X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=lib%2Fint63_on_64.ml;fp=lib%2Fint63_on_64.ml;h=bcddd3200b2b5b2cc039111f8c14c84fd8197efd;hb=e5c38f2287f2232b0377888341e3cf29a3417252;hp=96a4d6cb5043e5757030d825dd4c6e5de99d3b52;hpb=7e20234d7493721008c661b6e2c9bd4c33326589;p=virt-df.git

diff --git a/lib/int63_on_64.ml b/lib/int63_on_64.ml
index 96a4d6c..bcddd32 100644
--- a/lib/int63_on_64.ml
+++ b/lib/int63_on_64.ml
@@ -41,7 +41,7 @@ end
 
 let zero = 0
 let one = 1
-let minus_one = ~1
+let minus_one = (-1)
 
 external neg : int -> int = "%negint"