* to the current sector.
*)
let ppriv =
- { ppriv with mbr_part_start = ppriv.mbr_part_start + start } in
+ { ppriv with mbr_part_start = ppriv.mbr_part_start +^ start } in
let (next, npriv) = parse_mbr_entry next in
if next.part_status = NullEntry then
[ part, ppriv ] (* End of list. *)
else (
- let start_of_next = start + npriv.mbr_part_start in
+ let start_of_next = start +^ npriv.mbr_part_start in
(part, ppriv) ::
probe_extended_partition (max-1) dev start_of_next
)