From: Richard W.M. Jones <rjones@redhat.com> <"Richard W.M. Jones <rjones@redhat.com>">
Date: Tue, 10 Mar 2009 11:09:11 +0000 (+0000)
Subject: Fix parsing error with ~ versus -
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=e5c38f2287f2232b0377888341e3cf29a3417252;p=virt-df.git

Fix parsing error with ~ versus -
---

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"