and make_mbr_entry part_status dev partno part_type first_lba part_size =
let first_lba = uint64_of_int32 first_lba in
let part_size = uint64_of_int32 part_size in
and make_mbr_entry part_status dev partno part_type first_lba part_size =
let first_lba = uint64_of_int32 first_lba in
let part_size = uint64_of_int32 part_size in