Fixes for 32 bit

[virt-df.git] / lib / diskimage_mbr.ml

diff --git a/lib/diskimage_mbr.ml b/lib/diskimage_mbr.ml
index 6839380..4acbaf3 100644 (file)
--- a/lib/diskimage_mbr.ml
+++ b/lib/diskimage_mbr.ml
@@ -185,14 +185,14 @@ and probe_extended_partition max dev start =
            * 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
           )