X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=lib%2Fdiskimage_lvm2_lexer.mll;h=21136dc49b99b078770f0555bb083a0cba942866;hb=150ecaacf013da035bb3bd18d94e4e6f327aee13;hp=0a791b257b18373886028ff103fa498635a2ebd8;hpb=9611aba66734efe3e2f1e0792a90003b657a89f5;p=virt-df.git

diff --git a/lib/diskimage_lvm2_lexer.mll b/lib/diskimage_lvm2_lexer.mll
index 0a791b2..21136dc 100644
--- a/lib/diskimage_lvm2_lexer.mll
+++ b/lib/diskimage_lvm2_lexer.mll
@@ -82,7 +82,7 @@ rule token = parse
   (* integers *)
   | ('-'? digit+) as i
       {
-	let i = Int64.of_string i in
+	let i = Int63.of_string i in
 	INT i
       }