open Printf
open Lexing
+ open Diskimage_impl
open Diskimage_lvm2_parser
- open Diskimage_utils
(* Temporary buffer used for parsing strings, etc. *)
let tmp = Buffer.create 80
(* integers *)
| ('-'? digit+) as i
{
- let i = Int64.of_string i in
+ let i = Int63.of_string i in
INT i
}